Button ermitteln

[MaxMara]

Delphi-Quellcode:

procedure TFHTML.FormShow(Sender: TObject);
begin
  if TSpeedButton(Sender).Name = 'BHTML' then
    Label1.Caption := 'HTML bearbeiten';
end;

Das ist eigentlich der ganze Code...

Der Speedbutton 'BHTML' öffnet das Form über FHTML.ShowModal;

Zitat von Die Muhkuh:

Ansonsten über die Tag-Eigenschaft.

Die sagt mir leider nicht viel. Wie würde das in etwa aussehen?

Zitat von Bernhard Geyer:

Jedem Speedbutton kannst du doch ein OnClick-Ereignis zuordnen? Wo liegt das Problem?

Ansonsten:

Delphi-Quellcode:

if Sender = Speedbuttonxyz then
 ...

das OnClick vom Speedbutton öffnet das Form.