Form mehrmals öffnen verhindern

[Micha]

Ich schreibe gerade ein Programm, dass mehrere Benutzer zur gleichen Zeit übers Netzwerk aufrufen können.

In dem Programm sind mehrere Forms. Ein Benutzer darf aber eine Form nur einmal aufmachen. Wenn er das gleiche Formular nochmals öffnen wollte, so soll eine Fehlermeldung erscheinen.

Weiß jemand, wie ich das anstellen soll?

Dankeschön im Voraus.

[Alexander]

Du könntest dein Fenster modal anzeigen lassen (Form1.ShowModal)

[SirThornberry]

im OnCreate einen Mutex erzeugen (CreateMutex)

[Hansa]

Zitat von Micha:

...In dem Programm sind mehrere Forms. Ein Benutzer darf aber eine Form nur einmal aufmachen...

willst Du die Forms von der Benutzung her eingrenzen, oder das Programm selbst ? Ich habe das so gelöst, daß im Zweifelsfall die Form wieder geöffnet ist, genau so wie sie vorher war. Wenn eine aus Versehen 2-mal geöffnet wird, das geht dann eben nicht. Man landet dann immer wieder bei der geöffneten, bis sie geschlossen wird. Stichwort : Semaphoren.

[Bernd Ua]

Semaphoren und Mutexes um ein zweites öffnen eines Formulars zu verhindern,
finde ich ein bisschen wie mit "Kanonen auf Spatzen schiessen".
Die sind sinnvoll für prozessübergreifende Geschichten (und haben beim Zugriff
entsprechenden Overhead).

Da der Benutzer es ja irgendwie aufmachen können muss, wäre wohl das sinnvollste
diesen Menüpunkt einfach zu deaktivieren, wenn das Formular erzeugt wurde.

Alternativ kann man Screen.Forms und Klassenrefrenztypen verwenden um eine Instanz
eines Formulars bei Bedarf sichtbar zu machen oder auch zu erzeugen.

Im code könnte das für einen beliebiges Formulartyp so aussehen:

Delphi-Quellcode:

function GetSingleForm (aFormTyp : TFormClass): TForm;
var
  i : Integer;
begin
  Result := nil;
  for i :=0 to Screen.FormCount-1 do
    begin
      if Screen.Forms[i] is aFormTyp then
        begin
          Result := Screen.Forms[i];
          Break;
        end;
    end;
  if not Assigned(Result) then
    Result := aFormTyp.Create(Application.Mainform);
  if not Result.Visible then
    Result.Show;
end;

Aufruf dann so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aForm : TForm;
begin
  aForm := GetSingleForm(TForm2);
end;

Noch sauberer wäre es natürlich den Singtonpattern für das Formular zu implementieren <g>.

Zitat:

Ich schreibe gerade ein Programm, dass mehrere Benutzer zur gleichen Zeit übers Netzwerk aufrufen können.

Und BTW, ob das Programm vom Netzwerk oder lokal gestartet wird ist eh wumpe. Keine
der Methoden im Thread funktioniert netzwerkübergreifend.

Bernd

[SirThornberry]

Es gäbe noch die Möglichkeit sich in ner Variablen zu merken ob das formular schon offen ist oder nicht. Oder willst du das nur eine person im ganzen netzwerk das formular öffnen kann? dann bleibt wohl nur noch ein server als lösung der kontaktiert wird und ausgibt ob das formular schon offen ist

[Hansa]

Bei mir war das Problem eigentlich nur, daß die Leute das Programm minimiert haben und es nicht sahen. Und dann wurde behauptet, irgendwelche Fehler kämen. Die kamen ja auch in der Form "Zugriff nicht möglich, weil gerade ein anderer Prozeß darauf zugreift". Was ein Netzwerk betrifft: Lege doch einfach eine Datei auf dem Server an, wenn das Formular geöffnet wird und lösche sie anschließend wieder. Ist diese da, so verhinderst Du den Zugriff, ansonsten läßt Du ihn zu.

[Micha]

So, ich meld mich auch mal wieder. *g*

Zuerstmal:
Nein, die Benutzer dürfen alle gleichzeitig das Formular aufrufen. Nur ein einzelner Benutzer darf es nicht zweimal aufmachen.


ShowModal: Nein, das ist für mein Prog nicht so toll.

CreateMutex: Konnte in der Delphi-Hilfe nichts dazu finden. Was ist das?

Ich werde erstmal die Funktion von Bernd Ua implementieren.

Vorerst möchte ich mich bei euch für eure Unterstützung bedanken.
DANKESCHÖN

[Uncle Cracker]

Für CreateMutex musst du mal in der DP suchen, was das ist:

CreateMutex