14-08-2012, 12:55 AM
السلام عليكم
ما طريقة اضافة تفعيل حدث النقر على زر بعد انشائه
حاولت استعمال wm_command و استعمال البوكل if HIWORD(wParam) = BN_CLICKED لكن معلوماتى حول الرسائل بين الوندوز و النوافذ مازالت شحيحه و لم افلح فى الوصول الى تفعيل حدث النقر على الزر
ما طريقة اضافة تفعيل حدث النقر على زر بعد انشائه
حاولت استعمال 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.
