Vielen Dank auch an dich!
Die Methode mit Sender gefällt mir sehr gut! Auch einfach umzusetzen ohne alle Buttons taggen zu müssen.
Habe den Code jetzt so eingebaut, funktioniert aber leider nicht
Code:
procedure TForm1.ButtonClick(Sender: TObject);
begin
if Sender = Button1 then
begin
Memo1.Text:='Hallo';
end;
end;
Bekomme keine Ausgabe. Anscheinend erkennt er nicht ob der Button geklickt wurde oder nicht.