Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Parent- / Child-Form Wechsel (https://www.delphipraxis.net/33684-parent-child-form-wechsel.html)

Martoeng 11. Nov 2004 07:57


Parent- / Child-Form Wechsel
 
Hi DP,

ich habe das Problem gehabt, dass ich ein Formular zwingend vor einem anderen Formular anzeigen wollte (aber erst, wenn es aufgerufen wird). Also habe ich mal ein paar Foren durchsucht und das hier gefunden (ich glaube sogar hier irgendwo):

Delphi-Quellcode:
  private
    { Private-Deklarationen }
  public
    procedure CreateParams(var Params: TCreateParams); override;
    { Public-Deklarationen }

  end;

var
  frm_Texte: Tfrm_Texte;

implementation

{$R *.dfm}

procedure TFrm_texte.CreateParams(var Params: TCreateParams);
begin

  inherited CreateParams(Params);
  if Assigned(Application.MainForm) then
  begin
    Params.Style := Params.Style or WS_CHILD;
    Params.WndParent := Application.MainForm.Handle;
  end;

end;
Funktioniert auch wunderbar, bis auf eine Kleinigkeiten:

Wenn ich nun von dieser Child-Form auf das Parent wechsle (indem ich dort ein Edit anklicke) komme ich nur mit der RECHTEN Maustaste wieder zurück in ein Edit, das auf dem Child liegt.
Das ist natürlich nicht so toll, kann man da was machen? :gruebel:


Wäre für Hilfe sehr dankbar...

MfG

Martoeng

jim_raynor 11. Nov 2004 08:34

Re: Parent- / Child-Form Wechsel
 
Ich denke mal, dass Showmodal dir helfen sollte. Ansonsten, wenn es nur im Vordergrund sein soll, dann stelle FormStyle auf fsStayOnTop.

Martoeng 11. Nov 2004 10:27

Re: Parent- / Child-Form Wechsel
 
:oops: :wall:

Hi,

an fsStayOnTop hätte ich ja auch mal denken können :oops:

Naja, warum einfach wenn es auch kompliziert geht?

Danke für das "Auf-die-Sprünge-helfen", jim !

MfG

Martoeng


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz