Hallo,
schonmal mit 'ner ActionList gearbeitet?
Eine Action kann man mehreren Buttons, Menüeinträgen... zuordnen und dort im ActionExecute(Sender: TObject) kann man wunderbar in der gewünschten Form den Sender abfragen. Sender ist hier immer das Control, dass die Action ausgelöst hat.
Delphi-Quellcode:
// procedure TForm4.FormShow(Sender: TObject);
procedure TForm4.Action1Execute(Sender: TObject);
begin
if Sender = Unit1.Form1.speedbutton9
then Form4.Caption := ' Eintrag ändern';//Unit4
if Sender = Unit1.Form1.Speedbutton11
then Form4.Caption :='Neuer Eintrag';//Unit4
Form4.Show;
end;