Server Problem

[CallOfUnite]

Zitat von DeddyH:

Zitat:

FrmServer := TFrmServer.Create (Self);

Du hast also eine Instanz namens FrmServer der Klasse TFrmServer. Oder geht es jetzt um ein anderes Formular?

Also es geht darum das halt beim Start des Programms alle Forms geöffnet werden, wenn man ein Formular 2 mal öffnet erscheint eine fehlermeldung, diese beuge ich damit vor das man halt wenn das eine Formular offen ist den Button nicht drücken kann , wenn man nun auf dem TFrmServer auf Application Schliessen (Button1) klickt soll dieses Form beendet werden und der Button in der Optionsleiste soll enabled werden um dieses Form wiederherzustellen, wenn das Form dann da ist geht der Button automatisch wieder auf den Boolschen
Wert- Enabled=False

[haentschman]

Hmmm...

irgendwie riecht das nach einem komischem Design und einer Unordnung in den Bezeichnern (Deklarationen/Instanzen)
male mal auf welches Formular mit welchem wie interagiert.

[CallOfUnite]

Zitat von haentschman:

Hmmm...

irgendwie riecht das nach einem komischem Design und einer Unordnung in den Bezeichnern (Deklarationen/Instanzen)
male mal auf welches Formular mit welchem wie interagiert.

Also

Main ->(interagiert) Server und Client (durch Main kann man halt neue Clients oder eben einen Server hinzufügen, bei mehreren 'Servern' würde es einen fehler geben. diesem will ich vorbeugen mit dem close usw...

Server -> Main (Button enablen)

[haentschman]

erzeugst du das Formular "Server" zur Laufzeit ?

PS: in dem Formular muß natürlich die Main bekannt sein... uses Main nicht vergessen ?

[CallOfUnite]

Zitat von haentschman:

erzeugst du das Formular "Server" zur Laufzeit ?

PS: in dem Formular muß natürlich die Main bekannt sein... uses Main nicht vergessen ?

jaja hab ich auch schon dran gedacht und auch schon ausprobiert...

->
[Fataler Fehler] mServer4.pas(7): F2047 Zirkuläre Unit-Referenz auf 'mServer4'

[haentschman]

dann schieb mal die uses Main unterhalb von implementation

[DeddyH]

Nochmal ganz langsam: in der Unit zu frmMain erzeugst Du das Server-Formular und zeigst es an. Wo steht denn nun der Close-Aufruf, der nicht will? In der Unit zum Server?

[haentschman]

Zitat:

In der Unit zum Server?

jupp... und auch von dort möchte er in Main den Button wieder enablen.

[CallOfUnite]

Zitat von CallOfUnite:

Zitat von haentschman:

erzeugst du das Formular "Server" zur Laufzeit ?

PS: in dem Formular muß natürlich die Main bekannt sein... uses Main nicht vergessen ?

jaja hab ich auch schon dran gedacht und auch schon ausprobiert...

->
[Fataler Fehler] mServer4.pas(7): F2047 Zirkuläre Unit-Referenz auf 'mServer4'

auch schon überlegt die uses in implementation einzubauen klappt aber auch nicht, brauche halt iwie die zuweisung des forms auf den close 'befehl'

[CallOfUnite]

Zitat von CallOfUnite:

Zitat von DeddyH:

Zitat:

FrmServer := TFrmServer.Create (Self);

Du hast also eine Instanz namens FrmServer der Klasse TFrmServer. Oder geht es jetzt um ein anderes Formular?

Also es geht darum das halt beim Start des Programms alle Forms geöffnet werden, wenn man ein Formular 2 mal öffnet erscheint eine fehlermeldung, diese beuge ich damit vor das man halt wenn das eine Formular offen ist den Button nicht drücken kann , wenn man nun auf dem TFrmServer auf Application Schliessen (Button1) klickt soll dieses Form beendet werden und der Button in der Optionsleiste soll enabled werden um dieses Form wiederherzustellen, wenn das Form dann da ist geht der Button automatisch wieder auf den Boolschen
Wert- Enabled=False

ich komme mir grad wie der letzte idiot vor wegen solchen simplen fehlern...Tut mir leid