Also du kannst entweder die WndProc deines Progs überschreiben, das geht dann so:
Delphi-Quellcode:
type
TForm1 = Class(TForm)
Button1: TButton;
Private
{ Private-Deklarationen }
Public
{ Public-Deklarationen }
Procedure WndProc(Var Msg: TMessage); Override;
end;
[...]
implementation
[...]
Procedure TForm1.WndProc(Var Msg: TMessage);
Begin
If Msg.Msg = WM_COMMAND Then
Begin
If Msg.WParamHi = BN_CLICKED Then
Begin
If Msg.LParam = Button1.Handle Then
Begin
ShowMessage('Button1 wurde gedrückt.');
End;
End;
End;
Inherited;
End;
Oder du fängst nur die Message WM_COMMAND ab:
Delphi-Quellcode:
type
TForm1 = Class(TForm)
Button1: TButton;
Private
{ Private-Deklarationen }
Public
{ Public-Deklarationen }
Procedure OnCommand(Var Msg: TMessage);Message WM_COMMAND;
end;
[...]
implementation
[...]
Procedure TForm1.OnCommand(Var Msg: TMessage);
Begin
If Msg.WParamHi = BN_CLICKED Then
Begin
If Msg.LParam = Button1.Handle Then
Begin
ShowMessage('Button1 wurde gedrückt.');
End;
End;
End;
mfg matze
//Edit: Oder du machst es mit nem OnClick
