Unit2 nicht unit1

[Schuby]

Guten abend,
gibt es die Möglichkeit ein SpeedButton1.click gleich in
einer 2ten unit einzubinden und nicht immer in Hauptunit Unit1.?

mfg schuby

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Memo1.Clear;
end;

[Neumann]

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  form2.Memo1.Clear;
end;

[DieDolly]

Ich glaube Schuby meint das anders rum. Der Button soll in Unit 1 bleiben, das Event aber in Unit 2.

[Neumann]

Sowas könnte man zwar konstruieren, sehe aber keinen Nutzen.

Also etwa so umbiegen:

  SpeedButton1.onClick := form2.speedbuttonX.onclick; Würde ich nicht machen. Mag ja funktionieren, gefällt mir aber nicht.

[DieDolly]

Ich denke der Nutzen soll der sein, dass die Hauptunit von Code befreit wird, auslagern von Event-bezogenem Code in Extraunits.

[Neumann]

Also, das würde ich dann so machen:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MyBusinessobj.doSpeedbutton1click;
end;

Die 4 Zeilen können doch eigentlich nicht stören.

[Schuby]

Zitat von DieDolly:

Ich denke der Nutzen soll der sein, dass die Hauptunit von Code befreit wird, auslagern von Event-bezogenem Code in Extraunits.

Genau das meinte ich, ich wollte gerne das alles was an Unit 2 gehört auch in
Unit 2 ist, einfach das man den Code besser lesen kann.


Das werde ich gleich mal versuchen
SpeedButton1.onClick := form2.speedbuttonX.onclick;


Danke für die Antworten.


Gruß schuby

[himitsu]

Zitat von DieDolly:

Ich denke der Nutzen soll der sein, dass die Hauptunit von Code befreit wird, auslagern von Event-bezogenem Code in Extraunits.

dann macht sich ein datenmodul bestimmt besser
und selbst im oi kann man events von anderen forms und datenmodulen zuweisen ... muss bloß geöffnet sein.

[Delphi.Narium]

Zitat von Neumann:

Sowas könnte man zwar konstruieren, sehe aber keinen Nutzen.

Also etwa so umbiegen:

  SpeedButton1.onClick := form2.speedbuttonX.onclick; Würde ich nicht machen. Mag ja funktionieren, gefällt mir aber nicht.

Oder irgendwo im Quelltext der Unit2:Form1.SpeedButton1Click(Sender); Aber:

Schön ist das nicht.

Wenn, dann baut man eine Unit, die die entsprechenden Funktionen, Prozeduren ... enthält und ruft dann in dem entsprechenden OnClick-Ereignnis die benötigte Funktion, Prozedur, WasAuchImmer auf.