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