Zwei Units für eine Form?

[snow]

Hallo

Ich hab ein kleines Problem.
Ich hab 2 Buttons. Wenn ein button geklickt wird soll eine Form aufgerufen werden. Klappt auch ganz prima. Doch.....


Ich will das wenn der 2. Button drückt wird, sich die selbe Form offnet aber die FOrm soll mit einer anderern Unit Verknfüpft sein.

Quasi so

Button1-->Form-->Unit1
Button2-->Form-->Unit2



Die form hat buttons. In unit 2 Soll eine andere OnClick-Procedure für Buttonxyz ausgeführt werden als in Unit 1.


Ich will keine 2 Identischen Formen erstellen, um platz zu speichern. Ich könnte zwar auch einen Parameter übergeben aber dann müsste ich vor jeder procedure eine Verzweigung machen. Und dass will ich nicht, wenn es auch einfacher geht.


MfG snow

PS://Ach ja ich hab lazarus!

[mkinzler]

Du könntest die Event-Property auf eine andere Methode setzen.

[snow]

Sorry,


Aber ist die Event-Property für jede form einstellbar. Dass ich wie oben einer form eine Unit zuweise oder muss ich jedem Button eine neue procedure geben?.

Und kann ich beim form.show; ein parameter übergeben?

MfG snow

[mkinzler]

Zitat:

Aber ist die Event-Property für jede form einstellbar.

Ja.

formx.Button.onClick := <Klasse in Unit1>.KlickProzedur1;

[RavenIV]

Ein Formular besteht aus einer Form1.pas und einer Form1.dfm.
Ich hab noch nirgends gesehen, dass man es so machen kann wie Du es vorhast.
Also Unit1.pas + Unit2.pas + Unit.dfm.

Vermutlich wirst Du also 2x .pas und 2x .dfm benötigen.
Du kannst aber Unit2.pas von Unit1.pas ableiten, dann sind sie zumindest gleich.

[snow]

Kann ich die onclick-proceduren vor dem .show ändern?

Dass ich in der "Normalen" Unit einfach eine 2. Unit include. Und vor dem show dann die onclick/change/show proceduren ändere?


MfG snow

[mkinzler]

Delphi-Quellcode:

Form.<Kompo>.onClick := <Methoden>;
Form.Show;

[snow]

Danke läuft! Kann ich die auch die ONshow procedure ändern?

MfG snow

[mkinzler]

Ja.

[snow]

Hallo noch mal

Ich bekomme bei
FahrpultLsollgeschwindigkeit.OnChange:=OnchangeFahrpultdb(); folgende fehlermeldung

Zitat:

Hauptanzeige.pas(81,42) Error: Incompatible types: got "untyped" expected "<procedure variable type of procedure(TObject) of object;Register>"
Hauptanzeige.pas(132) Fatal: There were 1 errors compiling module, stopping

warum?

MfG snow