Aufruf Form1.Komponente in Form2 ok?

[NoCee]

Hallo zusammen,
ich habe ein kleines Testprogramm für eine Netzwerkkommunikation mit einer Maschine geschrieben.
Über das Haupformular rufe ich ein zweites Formular auf.
Hier hab ich einen Button gepappt der mir ein Form1.Putty.SendMessage('Test') macht.
Die Komponente ist ein LNet TCPIP Server die ich auf die Form1 gezogen habe.
Ich starte die Komponente (Netzwerkserver Listen) mit OnCreate von Form1.
Hier werden auch alle Events dieser Komponente verarbeitet.
Das funktioniert auch, ich lese aber oft, daß man mit der Interaktion zwischen 2 Formularen aufpassen muß.

Ist das so ok wie ich das mache, wenn nein, wie mach ich das besser oder gar richtig?

Für Hilfe schon mal Danke im Vorraus
Gruß
NoCee

[Winni]

Hi!

Meistens wird vor dem rekursiven Benutzen der Units gewarnt.
Das kann umgangen werden mit einer zusätzlichen Unit.
In die kommen alle Konstanten, Variablen sowie grundlegende Proceduren für Dein Projekt rein.

Und dann benutzen beide Formen bzw. deren Unit eben diese neue Unit.
Und man kann über die Variablen in dieser Unit "kommunizieren" ohne große Klimmzüge.

Winni

[wp_xyz]

Hallo zusammen,
ich habe ein kleines Testprogramm für eine Netzwerkkommunikation mit einer Maschine geschrieben.
Über das Haupformular rufe ich ein zweites Formular auf.
Hier hab ich einen Button gepappt der mir ein Form1.Putty.SendMessage('Test') macht.
Die Komponente ist ein LNet TCPIP Server die ich auf die Form1 gezogen habe.
Ich starte die Komponente (Netzwerkserver Listen) mit OnCreate von Form1.
Hier werden auch alle Events dieser Komponente verarbeitet.
Das funktioniert auch, ich lese aber oft, daß man mit der Interaktion zwischen 2 Formularen aufpassen muß.

Mir ist jetzt konkret nicht klar, wie das zusammengehört: Es gibt ein Hauptformular und es gibt ein "zweites Formular". Aber welches von den beiden ist Form1? Oder ist das ein drittes Formular? Und wer ruft was von wem auf?

[NoCee]

Hallo,
vielleicht ein bisschen knapp erklärt.
Ich habe Form1 (Hauptformular) und habe da die Komponente LNet draufgezogen.
Über dieses Formular wird alles mit dieser Komponente gehandelt.
Alle Events wie OnEmpfang, OnError, OnConnect usw.
Auf der Form2 möchte ich jetzt mit einem Button über diese Komponente von Form1
etwas senden. Im Buttonevent von Form2 steht in der procedure sowas wie Form1.Putty.SendMessage('Test').
Wie gesagt, das funktioniert, aber ob das sich nicht irgendwann mal sich selber ins Gehege kommt ist mir nicht klar.

@Winni ich wüßte jetzt nicht wie ich eine visuelle Komponente auf eine andere Unit auslagern könnte.
LNet ginge auch nonvisual, aber da ist der Vorteil der visuellen Programmierung weg, der mir aber als Halblaie sehr entgegenkommt.

Gruß
NoCee

[fliegermichl]

ich wüßte jetzt nicht wie ich eine visuelle Komponente auf eine andere Unit auslagern könnte.

Wer sagt, daß die dritte Unit kein Formular haben kann?

[Winni]

Hallo!

Oder doch rekursiv:

Code: Alles auswählen

unit Unit1;
interface
uses  ....., unit2;
....

und dann:

Code: Alles auswählen

unit unit2;
....
implementation
uses unit1;
...

Und dann kann man in unit2:

Code: Alles auswählen

Form1.Komponente.property := .....

Und in unit1:

Code: Alles auswählen

Form2.Komponente.property := ...

Winni

[wp_xyz]

LNet ist meines Wissens eine nicht-visuelle Komponente - die kann man auf ein Datenmodul auslagern, und schon hat man den Zirkelbezug "Form1 uses Form2" und "Form2 uses "Form1" verhindert, denn jetzt heißt es "Form2 uses Datamodule". Falls auch Form1 das Datenmodul benutzt muss man darauf achten dass dieses vor Form1 erzeugt wird, dazu das Datenmodul in der Liste der automatisch erzeugten Formulare vor Form1 ziehen! (Oder von Form1 manuell erzeugen lassen).

Bei einer nicht-visuellen Komponente sehe ich anderseits auch gar keinen Grund, LNet zur Designzeit auf ein Formular oder ein Datenmodul zu klatschen - die paar Properties kann man auch zur Laufzeit setzen. Damit könnte die ganze über LNet laufende Kommunikation in eine einfache Unit ausgelagert werden (was auch den Vorteil hätte, dass man das Designzeit-Package lnetvisual nicht installieren muss, und vielleicht sogar nur mit dem lnetbase Laufzeitpackage auskommt).

winni's Tipp, die "uses" einmal in den Interface-, einmal in den Implementation-Abschnitt zu setzen, funktioniert auch. Jedoch kann es bei einem größeren Projekt mit komplizierterer Unit-Abhängigkeit sein, dass das nicht mehr funktioniert. Daher habe ich solche Konstruktionen immer gleich von Anfang an vermieden.

[af0815]

Falls auch Form1 das Datenmodul benutzt muss man darauf achten dass dieses vor Form1 erzeugt wird, dazu das Datenmodul in der Liste der automatisch erzeugten Formulare vor Form1 ziehen! (Oder von Form1 manuell erzeugen lassen).

Ich bin ein Anhänger von nur einem Form automatisch erzeugen lassen. Dieses erzeugt dann geplant alles andere und man ist nicht abhängig vom Editor wo der dann was wie einfügt.

Da hat mir schon Delphi früher mitgespielt und auch bei Lazarus kann man es beobachten, wenn man Projekte dupliziert/verschiebt/Strukturändert das schon mal die Liste der erzeugten Formulare leer ist oder sich was ungewollt umändert - weil man ein Formular mal zu herausnimmt und wieder hinzufügt.

Vor allen bei Datenmodulen kann es zu blöden Situationen kommen, wenn zB. das Datenmodul Parameter benötigt, diese erst aber nach dem Erstellen der Mainform bereitstehen. Wenn dann die Reihenfolgen nicht stabil sind, ist ärger vorprogrammiert.

Aufruf von Form1 zu Form2 ist IMHO ok, wenn man nicht zugleich in die andere Richtung arbeitet. Ich löse das dann über Callbacks oder übergebe der 2ten Form meine visuellen Objekte als Parameter oder Records zum Datenaustausch. Damit habe ich keine zirkularen Referenzen.

[Winni]

Vor allen bei Datenmodulen kann es zu blöden Situationen kommen, wenn zB. das Datenmodul Parameter benötigt, diese erst aber nach dem Erstellen der Mainform bereitstehen. Wenn dann die Reihenfolgen nicht stabil sind, ist ärger vorprogrammiert.

Hi!

Die definitive Stelle, bei der alles initialisiert ist ist

Code: Alles auswählen

TForm1.onActivate

Dabei muss man beachten, dass sich onActivate bei den Betriebssystemen verschieden verhält:

Linux führt es nur einmal beim ersten show aus.
Windows führt es bei jedem show aus - also auch wenn der WindowState von minimized wieder auf normal oder maximized geht.

Um Betriebssystem übergreifende Kompatibilität zu erzeugen, muss man also folgendes coden:

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
begin
...
onActivate := Nil;
end;

Dann wird es nur einmal ausgeführt.

Winni

[fliegermichl]

Hmm, kann ich nicht nachvollziehen.

Code: Alles auswählen

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    cnt : integer;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  cnt := 0;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  inc(cnt);
  Label1.Caption := IntToStr(cnt);
end;

Bei mir bleibt das Label immer 1.
Windows 10 64 Bit Laz 2.3.0 FPC 3.3.1

[Winni]

Hmm, kann ich nicht nachvollziehen.

Code: Alles auswählen

  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    cnt : integer;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  cnt := 0;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  inc(cnt);
  Label1.Caption := IntToStr(cnt);
end;

Bei mir bleibt das Label immer 1.
Windows 10 64 Bit Laz 2.3.0 FPC 3.3.1

Hi!

Ups! Da bin ich wohl nicht auf der Höhe der Zeit!

Du hast Recht: Das Windows -Verhalten wurde dem Linux-Vehalten angepasst.
Wer immer das war - M$ oder das LCL-Team.

Gut zu wissen. Danke.

Winni

[Soner]

Vor allen bei Datenmodulen kann es zu blöden Situationen kommen, wenn zB. das Datenmodul Parameter benötigt, diese erst aber nach dem Erstellen der Mainform bereitstehen. Wenn dann die Reihenfolgen nicht stabil sind, ist ärger vorprogrammiert.

Hi!

Die definitive Stelle, bei der alles initialisiert ist ist

Code: Alles auswählen

TForm1.onActivate

Dabei muss man beachten, dass sich onActivate bei den Betriebssystemen verschieden verhält:

Linux führt es nur einmal beim ersten show aus.
Windows führt es bei jedem show aus - also auch wenn der WindowState von minimized wieder auf normal oder maximized geht.

Um Betriebssystem übergreifende Kompatibilität zu erzeugen, muss man also folgendes coden:

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
begin
...
onActivate := Nil;
end;

Dann wird es nur einmal ausgeführt.

Winni

TForm.OnActivate wird aufgerufen wenn immer ein Form aktiviert wird. Bei einem Ein-Form-Anwendung wird es einmal aufgerufen, wenn man mehr als ein Form im Programm hat, dann jedesmal beim Form-Wechsel. Bei Windows ist es so und ich glaube bei anderen Betriebssystemen musste es auch so sein.

[fliegermichl]

TForm.OnActivate wird aufgerufen wenn immer ein Form aktiviert wird. Bei einem Ein-Form-Anwendung wird es einmal aufgerufen, wenn man mehr als ein Form im Programm hat, dann jedesmal beim Form-Wechsel. Bei Windows ist es so und ich glaube bei anderen Betriebssystemen musste es auch so sein.

Stimmt, kann ich bestätigen.