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

Delphi-Quellcode:

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

Delphi-Quellcode:

FHTML.ShowModal;

Zitat:

Zitat von Die Muhkuh

Ansonsten über die Tag-Eigenschaft.

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

Zitat:

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:

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.

Delphi-Quellcode:

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?

[Die Muhkuh]

Hi,

ich würde Bernhards Weg auch bevorzugen, war gerade das gleiche am Tippen, aber der Herr Geyer kam zuerst :zwinker:

[mkinzler]

Na den den Wert gewünschten Buttons. Voraussetzung ist natürlich, dass jeder Button einen einmaligen Tag hat.

[Die Muhkuh]

Zitat:

Zitat von mkinzler

Na den den Wert gewünschten Buttons. Voraussetzung ist natürlich, dass jeder Button einen einmaligen Tag hat.

Dann ändert man das unbeabsichtigt und schwupps funktioniert es nicht mehr. Bei der von Bernhard vorgeschlagenen Variante funktioniert es weiterhin.

[MaxMara]

Zitat:

Zitat von 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?)

Puuh...hab mir jetzt http://delphi.about.com/od/delphitip...e_override.htm angeschaut um deinen Beitrag nachvollziehen zu können. Ist das der einzige Weg um das Formular zu erweitern?

Zum Thema Namensschema: Gute Idee :mrgreen:

Zitat:

Zitat von Die Muhkuh

Zitat:

Zitat von mkinzler

Na den den Wert gewünschten Buttons. Voraussetzung ist natürlich, dass jeder Button einen einmaligen Tag hat.

Dann ändert man das unbeabsichtigt und schwupps funktioniert es nicht mehr. Bei der von Bernhard vorgeschlagenen Variante funktioniert es weiterhin.

Ich hab es sowieso nicht hingebracht, weil er meint bei "FHTML.Tag := Sender.Tag;" ist Tag ein undefinierter Bezeichner..

[Die Muhkuh]

Zitat:

Zitat von MaxMara

Zitat:

Zitat von 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?)

Puuh...hab mir jetzt http://delphi.about.com/od/delphitip...e_override.htm angeschaut um deinen Beitrag nachvollziehen zu können. Ist das der einzige Weg um das Formular zu erweitern?

So kompliziert muss es auch nicht sein. :)

Im Anhang ist ein sehr einfaches Beispiel dafür.

[MaxMara]

Zitat:

So kompliziert muss es auch nicht sein.

Im Anhang ist ein sehr einfaches Beispiel dafür.

Super! Danke!
Ich durchschau es zwar nicht wirklich, aber ich kanns sicher auf mein Projekt umlegen :)

[Die Muhkuh]

Hi,

wenn Du willst, füge ich noch Kommentare hinzu.

Ich dachte, dass es eig. recht einfach zum Durchsehen ist. So kann man sich täuschen. :)

[MaxMara]

Zitat:

Zitat von Die Muhkuh

Hi,

wenn Du willst, füge ich noch Kommentare hinzu.

Ich dachte, dass es eig. recht einfach zum Durchsehen ist. So kann man sich täuschen. :)

Nein passt schon so. Ist auf den zweiten Blick eh nur noch halb so schlimm :mrgreen:

[DeddyH]

Wenn Du fremden Code verstehen willst, hilft es oft, sich daraus ein Struktogramm zu erstellen. Und bei unbekannten Funktionsaufrufen zuerst schön in die Hilfe zu schauen ;)

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Wenn Du fremden Code verstehen willst, hilft es oft, sich daraus ein Struktogramm zu erstellen. Und bei unbekannten Funktionsaufrufen zuerst schön in die Hilfe zu schauen ;)

OpenForm steht aber nicht in der Online-Hilfe :stupid:

[DeddyH]

Ich hab mir Deinen Quellcode nicht angesehen, aber OpenForm wird wohl eine selbstdefinierte Funktion oder Methode sein, die wiederum Methoden benutzt, die dann in der Online-Hilfe stehen :stupid:

[Die Muhkuh]

OpenForm ist aber erstmal unbekannt und man könnte es ja nachgucken wollen :stupid:

[DeddyH]

Hast Du das nicht drinstehen oder soll ich mir das jetzt doch runterladen? Und wie gesagt, Struktogramm erstellen, dann eben auch für OpenForm.

[Die Muhkuh]

Nein quatsch. OpenForm ist eine Methode von mir, um etwas Code zu sparen. Wollt' Dich ein bisschen auf die Schippe nehmen :zwinker:

[MaxMara]

Zitat:

Zitat von DeddyH

Wenn Du fremden Code verstehen willst, hilft es oft, sich daraus ein Struktogramm zu erstellen. Und bei unbekannten Funktionsaufrufen zuerst schön in die Hilfe zu schauen ;)

Ich schau öfters in die Hilfe hinein. Aber der heutige Aufgruf von Tag hat mich wieder einmal ein wenig sauer gemacht:

Zitat:

Das ist Tag, ein Mitglied der Klasse TComponent.

Das motiviert nicht sehr zum Hilfe-gucken ;)

[DeddyH]

Ich meinte jetzt auch den Quellcode vom Manuel.

Zitat:

Zitat von MaxMara

Ich durchschau es zwar nicht wirklich, aber ich kanns sicher auf mein Projekt umlegen :)

[MaxMara]

Zitat:

Zitat von DeddyH

Ich meinte jetzt auch den Quellcode vom Manuel.

Dachte ich mir schon. Wollts trotzdem nur mal gesagt wissen.