دخول

abdeslem1982 · 14-08-2012, 12:55 AM

السلام عليكم

ما طريقة اضافة تفعيل حدث النقر على زر بعد انشائه
حاولت استعمال wm_command و استعمال البوكل if HIWORD(wParam) = BN_CLICKED لكن معلوماتى حول الرسائل بين الوندوز و النوافذ مازالت شحيحه و لم افلح فى الوصول الى تفعيل حدث النقر على الزر

كود :
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
bOK=10;
begin
CreateWindowEx(0,'button','ok     ',WS_CHILD or WS_VISIBLE or BS_RIGHT  or BS_DEFPUSHBUTTON,200,200,60,30,Form1.Handle,bok,0,nil);
end;

end.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة