Fenster ohne eigenen Reiter

[Angel4585]

oder hilft dir vllt das hier?

Delphi-Quellcode:

procedure ShowError(AForm : TForm);
var lmeldung : TForm;
begin
lmeldung:=TForm2.Create(AForm);
with lmeldung do
  try
    Parent:=AForm;
    Show;
    AForm.ActiveControl:=lmeldung;
    while Visible do
      begin
      Application.ProcessMessages;
      if Assigned(AForm.ActiveControl) and(AForm.ActiveControl.Parent <> lmeldung) then
        AForm.ActiveControl:=lmeldung;
      end;
  finally
    Free;
    end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
ShowError(Self);
end;

Muss denk ich noch optimiert werden, aber ist denk ich ma ein vernünftiger Ansatz für dein Problem

Edit:Code ergänzt