Button ermitteln

[MaxMara]

Hallo Gemeinde,
ich möchte nach dem einer von mehreren Button (Speedbutton) geklickt wird ein anderes Form anzeigen.
Wie kann ich in dem neuen Form erkennen durch click auf welchen der Speedbuttons das Form geöffnet wurde?

Danke und Grüße
Christian

[mkinzler]

Werte den Sender aus

[MaxMara]

Habe ich versucht...mehrmals.
mit
if TSpeedButton(Sender).Name = 'BHTML' then hab ich die Versuche nun aufgegeben und mein Posting hier verfasst.

[mkinzler]

Zeig mal etwas mehr von deinem Code

[Die Muhkuh]

Ansonsten über die Tag-Eigenschaft.

[Bernhard Geyer]

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

Ansonsten:

Delphi-Quellcode:

if Sender = Speedbuttonxyz then
 ...

[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.

[mkinzler]

Das ist ja der falsche Sender:

Delphi-Quellcode:

FHTML.Tag := Sender.Tag;
FHTML.ShowModal;
...
if Self.Tag = ...

[Bernhard Geyer]

Ah, verständlicher.

Ergänze dein TFHTML-Formular um ein Property "EditMode" welche z.B. per Aufzählungstyp die Anzeigemodi des Formulars beinhalten. Im OnClick-Ereignis des Speedbutton setzt du dieses Property. Damit ist auch die Formularabhängigkeit aufgelöst (was ist wenn du versehentlich den Button von "BHTM" nach "btnHTML" änderst das du jetzt dieses Benennungsschema verwendest?)

[MaxMara]

Zitat von mkinzler:

Das ist ja der falsche Sender:

Delphi-Quellcode:

FHTML.Tag := Sender.Tag;
FHTML.ShowModal;
...
if Self.Tag = ...

Das versteh ich jetzt nicht ganz.
FHTML.Tag := Sender.Tag; habe ich jetzt ins onClick-Ereignis des Speedbuttons hinzugefügt.

Das "if Self.Tag..." habe ich jetzt versucht ins FormShow reingegeben, aber was muss auf der rechten Seite vom '=' stehen?