Form nur einmal pro Anwendung öffnen ???

[Pet04]

Hallo,

Ich habe folgendes Problem.

Ich habe eine Anwendung, die auf eine SQL Datenbamk zugreift und öfters gestartet werden kann/soll, also parallel .
Wenn ich nun die Anwendung starte und ein Formular auswähle (aus MainMenue) öffnet sich das Formular und es kann nicht noch einmal geöffnet werden.

Nun will ich die Anwwendung nocheinmal starten und das Formular soll sich in dieser Anwendung auch nur einmal öffenen lassen.

Also pro geöffnete Anwendung soll es so funktionieren als wäre sie nur einmal geöffnet.



Ich muß doch irgenwie bei

FReport := TFReport.create(Application,2);

einen eindeutigen Namen zuweisen oder

Wie kann man das realisieren ?



cReportWin := FindWindow('TFReport',nil);
if (Logdata.Server <> 'Offline') and
(Logdata.Server <> 'Standby') then
begin // Anlage Online, AWZ aktualisieren
(* Alle Abrechnungsarten anfordern *)
for i:=0 to 6 do
SendtoServer('Cmd1' + #13 + chr($52) + #13 + inttostr(i) + #13,false);
SendtoServer('Cmd1' + #13 + chr($52) + #13 + '7' + #13,true);
Reportvalue := 2;
(* Aufzeichnung für Systemanalyse *)
WriteLog('0003');
(* Wenn Formular aktive dann ausblenden bis AWZ aktualisiert *)
if cReportWin <> 0 then FReport.Visible := false;
end
else // Anlage Offline
begin
if cReportWin <> 0 then
begin // Formular wird bereits angezeigt
FReport.BringToFront;
FReport.Init(2);
end
else
begin // Formular neu erstellen
FReport := TFReport.create(Application,2);
FReport.Show;
//FReport.BringToFront
end;
end;
end;


Gruß

Pet

[Sven M.]

Du willst also verhindern, dass ein und das selbe Formular in EINER Anwendung mehrmals aufgerufen wird? Dann nimm doch einfach 'ne Variable und zähl die hoch...Oder deaktiviere dann den entsprechenden Eintrag im MainMenue...

Oder willst du, dass in ZWEI parallel laufenden Anwendung ein und das selbe Formular nur einmal aufgerufen werden kann?


Beste Grüße,
Sven

[Pet04]

Ich möchte dass in ZWEI parallel laufenden Anwendung ein und das selbe Formular nur einmal pro Anwendung aufgerufen werden kann?

[jfheins]

Dann brauchst du es ja gar nicht selbst erstellen - du kannst das ja Delphi überlassen.

Und dann einfach mit Form.Show() anzeigen, oder nicht?

Da es pro Anwendung ja nur eine insrtanz des Forms gibt, kann sie auch nur einmal angezeigt werden :stupid:

Selber machen:
Globale Variable oder Feld, am Anfang createn, und dann mit Show() anzeigen und mit Hide() verstecken ;)

[Pet04]

Die Form soll pro Anwendung geöffnet werden.

Wenn ich die Anwendung zum 2. mal Starte und die gewünschte Form öffne kommt ein zugriffsfehler auf Adresse xxxxxx, weil die Form ja beim 1. Start der Anwendung schon offen ist.

wenn ich

...
else // Anlage Offline
begin
if cReportWin <> 0 then
begin // Formular wird bereits angezeigt
FReport.BringToFront;
FReport.Init(2);
end
else
....

auskommentiere klappts, aber man kann die Form dann oftters öffnen

[Frankfurtoder]

Delphi Tags benutzen!

Wenn du die Anwendung 2. startest sind es doch unabhängige Instanzen. Lass ihn mit Formshow aufrufen wie jfheins schon sagte oder deaktivier den Menüeintrag.

[OregonGhost]

Entweder benutzt du einen Mutex, um das Formular abzusichern (such hier im Forum nach "Anwendung nur einmal starten" o.ä., das Prinzip ist das gleiche), oder du baust eine vernünftige Fehlerbehandlung ein, die dafür sorgt, dass dein Programm nicht abstürzt, wenn es auf den Server nicht zugreifen kann. Letzteres ist sicherlich vernünftiger, denn es könnte ja auch irgendjemand anderes die Verbindung blockieren, nicht nur dein Programm.

[Sven M.]

Ich glaube, hier gibt es ein großes Missverständniss, das auf die unklare Ausdrucksweise von Pet04 zurückzuführen ist. Er will offensichtlich, dass in zwei Anwendungen die Form nur insgesamt ein Mal geöffnet werden kann. Und nicht, wie er vorher betont hat, pro Form je ein Mal...

[Pet04]

genau das meinte ich

sorry

[ferby]

Hello,

würd hier auch Mutex verwenden (= ~ Globale Variabel die für alle Anwendungen gilt)


Hier ein Beispiel code:

Delphi-Quellcode:

const
  MutexName = 'blabla';

var
  hMutex: THandle; 

  hMutex := CreateMutex(NIL, True, MutexName);
  if (hMutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    Fehler('Fenster is schon offen!');
    CloseHandle(hMutex);
    halt;
  end;