Zwei Forms Modal anzeigen

[Win32.API]

Hallo,

ist es Möglich zwei Forms _gleichzeitig_ Modal anzuzeigen? Gibt es da einen "Hack" oder Ähnliches? Habe schon versucht eine andere Form per Enabled := true wiederzubeleben, leider ohne Erfolg.

Grüße,
Win32.API

[himitsu]

Modal geht eigentlich nur Einmal. (also jeweils für die letzte Modal aufgerufene Form).

Ich weiß jetzt nicht wie Delphi die nichtmodalen Forms sperrt, aber eventuell kann man diese Forms auch selber sperren und würde/könnte dann seine Forms nichtmodal, aber dennoch fast wie modal, anzeigen.

bzw., was passiert, wenn du die erste Form modal (ShowModal) und danach die zweite Form nicht modal (nur via Show im OnGreate/OnShow der Ersten) anzeigst?

[Uwe Raabe]

Das geht schon, allerdings nur verschachtelt.

Man erstelle ein neues Form, platziere einen Button darauf und schreibe folgenden Code in den ButtonClick-Event:

Delphi-Quellcode:

procedure TForm.Button1Click(Sender: TObject);
var
  Form: TForm;
begin
  Form := TForm.Create(Application);
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

[himitsu]

geht eben nicht, denn jeder Aufruf irgendeines .ShowModal sperrt alle Forms, welche zu diesem Zeitpunkt schon angezeigt werden.

Heißt also, daß du mit Form2 in deinem Button die Form1 auch mit sperren würdest.


Probier es einfach mal aus:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
  f: TForm5;
begin
  f := TForm5.Create(self);
  f.Caption := 'ShowModal ' + TimeToStr(now);
  f.ShowModal;
  f.Free;
end;

procedure TForm5.Button2Click(Sender: TObject);
var
  f: TForm5;
begin
  f := TForm5.Create(self);
  f.Caption := 'Show ' + TimeToStr(now);
  f.Show;
  // f wird von seinem Parent freigegeben,
end;

[Win32.API]

Zitat von himitsu:

geht eben nicht, denn jeder Aufruf irgendeines .ShowModal sperrt alle Forms, welche zu diesem Zeitpunkt schon angezeigt werden.

Heißt also, daß du mit Form2 in deinem Button die Form1 auch mit sperren würdest.


Probier es einfach mal aus:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
  f: TForm5;
begin
  f := TForm5.Create(self);
  f.Caption := 'ShowModal ' + TimeToStr(now);
  f.ShowModal;
  f.Free;
end;

procedure TForm5.Button2Click(Sender: TObject);
var
  f: TForm5;
begin
  f := TForm5.Create(self);
  f.Caption := 'Show ' + TimeToStr(now);
  f.Show;
  // f wird von seinem Parent freigegeben,
end;

Danke, so gehts!

Nach ein bisschen Nachdenken und Debuggen bin Ich noch auf Folgende Lösung gekommen: EnableWindow(Form3.Handle, True) .

Grüße

[Uwe Raabe]

Zitat von himitsu:

geht eben nicht, denn jeder Aufruf irgendeines .ShowModal sperrt alle Forms, welche zu diesem Zeitpunkt schon angezeigt werden.

Heißt also, daß du mit Form2 in deinem Button die Form1 auch mit sperren würdest.

Weiß ich doch Die Frage war aber "ist es Möglich zwei Forms _gleichzeitig_ Modal anzuzeigen?" und das geht. Man kann halt immer nur in dem aktuell modalen arbeiten. Womöglich war die Frage nicht richtig formuliert?

[himitsu]

Zitat:

Habe schon versucht eine andere Form per Enabled := true wiederzubeleben, leider ohne Erfolg.

Das hat mich denken lassen, er möchte beide Forms "aktiv" haben.

[Win32.API]

Ja, war meinerseits unglücklich Formuliert, Sorry.

[olaf]

Hallo,

eine Möglichkeit wäre, wenn ich dein Problem richtig verstehe, Formsyle auf stayontop für beide Forms zu setzen und den Aufruf mit

application.normalizetopspots;
form.showmaodal;

und in onclose

application restoretopspots.

Olaf