AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Form nur einmal pro Anwendung öffnen ???

Ein Thema von Pet04 · begonnen am 16. Okt 2008 · letzter Beitrag vom 18. Okt 2008
Antwort Antwort
Pet04

Registriert seit: 26. Sep 2007
86 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 14:03
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
  Mit Zitat antworten Zitat
Sven M.

Registriert seit: 21. Okt 2006
Ort: Halle/Saale
106 Beiträge
 
Delphi 5 Enterprise
 
#2

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 14:50
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
  Mit Zitat antworten Zitat
Pet04

Registriert seit: 26. Sep 2007
86 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:02
Ich möchte dass in ZWEI parallel laufenden Anwendung ein und das selbe Formular nur einmal pro Anwendung aufgerufen werden kann?
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#4

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:13
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

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

Registriert seit: 26. Sep 2007
86 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#5

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:26
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
  Mit Zitat antworten Zitat
Frankfurtoder

Registriert seit: 27. Mär 2008
112 Beiträge
 
RAD-Studio 2010 Pro
 
#6

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:33
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.
Erik
  Mit Zitat antworten Zitat
OregonGhost

Registriert seit: 8. Jun 2002
Ort: Lübeck
1.216 Beiträge
 
Delphi 3 Professional
 
#7

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:38
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.
Oregon Ghost
---
Wenn NULL besonders groß ist, ist es fast schon wie ein bisschen eins.
  Mit Zitat antworten Zitat
Sven M.

Registriert seit: 21. Okt 2006
Ort: Halle/Saale
106 Beiträge
 
Delphi 5 Enterprise
 
#8

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:49
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...
  Mit Zitat antworten Zitat
Pet04

Registriert seit: 26. Sep 2007
86 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#9

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 16. Okt 2008, 15:54
genau das meinte ich

sorry
  Mit Zitat antworten Zitat
ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#10

Re: Form nur einmal pro Anwendung öffnen ???

  Alt 18. Okt 2008, 18:38
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;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz