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