Liebe Gemeinde,
es ist zu warm!
Ich gurke jetzt schon seit viel zu langer Zeit an einen kleinen und bestimmt recht simplen Formularproblem, aber ich kriegs einfach nicht gebacken.
Wir nehmen eine neue Beispielapplikation frisch aus File->New->
VCL Form Application (Delphi)
Dem fügen wir noch ein kleines Unterformular hinzu.
Das rufen wir mit einen Klick auf einen Button im Hauptformular auf.
Das funktioniert alles soweit prächtig.
Auch die Z-Order und Fokus sind in meinem Sinne:
Wenn das Unterformular geöffnet und den Fokus hat, dann ist das Hauptformular im Hintergrund.
Selbst wenn man den Fokus auf das Hauptformular gibt, bleibt das Unterformular im Vordergrund...super, spitze, so soll es sein.
Hier ein bisschen Quelltext. Beispielprogramme als Anhang.
Weiter unten geht es dann zu meinen Problem.
Delphi-Quellcode:
program ZOrderFormExample;
uses
Vcl.Forms,
MainFormUnit
in '
MainFormUnit.pas'
{MainForm},
SubFormUnit
in '
SubFormUnit.pas'
{SubForm};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TSubForm, SubForm);
Application.Run;
end.
Delphi-Quellcode:
unit MainFormUnit;
interface
uses
System.Classes,
Vcl.Controls,
Vcl.Forms,
Vcl.StdCtrls,
SubFormUnit;
type
TMainForm =
class(TForm)
btnOpenSubform: TButton;
procedure btnOpenSubformClick(Sender: TObject);
private
public
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.btnOpenSubformClick(Sender: TObject);
begin
SubFormUnit.SubForm.Show;
end;
end.
Delphi-Quellcode:
unit SubFormUnit;
interface
uses
System.Classes,
Vcl.Controls,
Vcl.Forms;
type
TSubForm =
class(TForm)
private
public
end;
var
SubForm: TSubForm;
implementation
{$R *.dfm}
end.
Und hier jetzt die Version, die dem richtigen Quelltext entspricht und leider mein Problem verursacht:
Das Unterformular ist privater Member des Hauptformulars.
Wenn das Unterformular den Fokus an das Hauptformular verliert, wird es hinter dem Hauptformular geschoben.
DAS DARF NICHT SEIN! 
Delphi-Quellcode:
unit MainFormUnit;
interface
uses
System.Classes,
Vcl.Controls,
Vcl.Forms,
Vcl.StdCtrls,
SubFormUnit;
type
TMainForm =
class(TForm)
btnOpenSubform: TButton;
procedure btnOpenSubformClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
FMySubForm : SubFormUnit.TSubForm;
public
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.btnOpenSubformClick(Sender: TObject);
begin
FMySubForm.Show;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
FMySubForm := SubFormUnit.TSubForm.Create(Self);
end;
end.
Wie kann ich hier ein Verhalten wie im ersten Fall erhalten?
Und zwar ohne dermaßen mit TopMost-Krempel zu hantieren das andere bzw. Drittanwendungen verdeckt werden (Explorer, Browser etc.)!
Wer weiß Rat?
Wer schreitet zur Tat?
