Unterform immer über Mainform setzen ohne Showmodal?

[hitzi]

Hallo,

gibt es eine Möglichkeit eine zweite im gleichen Programm erzeugte Form immer über der Mainform zu lassen, eben wie ShowModal, nur ohne der Einschränkung, dass die Mainform warten muss bis das Fenster geschlossen ist.
fsStayOnTop ist abber wieder zuviel des ganzen :roll:
Wenn man ein anderes Programm über die Mainform legt, soll dieses Fenster nicht auch noch über diesem Programmfenster liegen - genau das passiert, wenn ich die Form auf fsStayOnTop setze.

Gibt es dafür eine Lösung?

MfG hitzi

[teebee]

Wenn Du im OnDeactivate des Forms, das applikationsweit immer oben bleiben soll folgendes machst:

Delphi-Quellcode:

procedure TForm2.FormDeactivate(Sender: TObject);
begin
  SetWindowPos(Handle,HWND_TOP,0,0,0,0,SWP_NOMOVE OR SWP_NOSIZE OR SWP_NOACTIVATE);
end;

Gruß, teebee

Edit: Festen Objektbezug vor 'Handle' entfernt

[SirThornberry]

oder den Parent von Form2 auf Mainform setzen, was allerdings auch zur Folge hat das Form2 nur innerhalb vom mainform verschoben werden kann

[hitzi]

Danke für eure Antworten.

@teebee: Bei deine Variante kommt eine EAccessViolation sobald ich die Mainform anklicke, um zu sehen, ob das Fenster tatsächlich im Vordergrund bleibt.
Woran liegt das?

Quellcode des Testprogrammes

Form1 mit einem Button:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses unit2;

procedure TForm1.Button1Click(Sender: TObject);
var form : tform2;
begin
  form := tform2.Create(application);
  form.Show;
end;

end.

Form2:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDeactivate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure TForm2.FormDeactivate(Sender: TObject);
begin
  SetWindowPos(Form2.Handle,HWND_TOP,0,0,0,0,SWP_NOMOVE OR SWP_NOSIZE OR SWP_NOACTIVATE);
end;

end.

MfG hitzi

[teebee]

Mach mal in SetWindowPos das Form2 vor '.Handle' weg oder ersetze es durch Self, das Form2 sollte da eigentlich gar nicht stehen...

Gruß, teebee

[hitzi]

Danke. Funktioniert :)