Zitat:
Wie kann ich es jetzt hinbekommen, das dieser ersellte Button das beim klicken ausführt:
Application.MessageBox('Test', 'Test', MB_ICONQUESTION or MB_OK);
Zuerst erstellst du dir ein Event, welches deinen Code ausführt.
Delphi-Quellcode:
unit Form1;
interface
...
type
TForm1 =
class(TForm)
private
procedure MyButtonClick(Sender: TObject);
end;
implementation
procedure TForm1.MyButtonClick(Sender: TObject);
begin
Application.MessageBox('
Test', '
Test', MB_ICONQUESTION
or MB_OK);
end;
end.
Jetzt muss der Button noch wissen, das er dieses Event auch aufrufen soll:
(Die Zuweisung kannst du z.b. dort machen, wo du den Button auch erstellst)
Zitat:
Button.OnClick := MyButtonClick; // das Event dem OnClick deines Buttons zuweisen
Weiterführend dazu kannst du dir noch durchlesen:
(procedure of object)
http://www.delphi-treff.de/object-pa...ethodenzeiger/