![]() |
Forms einer Applikation in einem Menu anzeigen
Hallo,
ich erzeuge dynamisch Form's und möchte im Start-Fenster alle bereits geöffneten Fenster auflisten und dann in den Vordergrund legen können. (nur Fenster der eigenen Applikation) Kann mir da jemand helfen ? Danke im Vorraus..... |
Re: Forms einer Applikation in einem Menu anzeigen
Du musst halt dementsprechend auch dynamisch Menüeinträge erstellen.
|
Re: Forms einer Applikation in einem Menu anzeigen
Ich erstelle die Forms mit dem IDE Scripter von TMS.
Das Handle oder das Objekt ist mit nicht bekannt. |
Re: Forms einer Applikation in einem Menu anzeigen
Hallo
ich erzeuge auch Forms dynamisch und zeige diese dann im MainForm an
Delphi-Quellcode:
Ich hoffe ich konnte Dir helfen
//Form1 ist das MAIN Form
//Form_Dynamisch Dynmisch erzeugte Form Form_Dynamisch.Parent:= Form1; Form_Dynamisch.Align := alClient; //Oder bei mehreren Forms alnone und mit TOP etc einpassen Form_Dynamisch.Show; Form_Dynamisch.bringtofront; |
Re: Forms einer Applikation in einem Menu anzeigen
Hallo,
Danke leider nicht. bei dem TMS IDE Scripter wird die Form innerhalb einer Komponente erzeugt und gestartet. Ich muß deshalb ein Fenster-Handles nachträglich erzeugen, so ähnlich wie bei EnumWindowUtil.pas halt bezogen auf die eigene Applikation. Gruß Roland |
Re: Forms einer Applikation in einem Menu anzeigen
Hallo,
ich kenne den TMS Scripter zwar nicht aber die mainform hast Du doch
Delphi-Quellcode:
if myObjeckt is tform then for I := 0 to TForm(myObjeckt).ComponentCount - 1 do begin TForm(myObjeckt).Components[i].Parent := TForm(myObjeckt); .... end; ich weiß nicht ob Dir das weiterhilft Gruß hans |
Re: Forms einer Applikation in einem Menu anzeigen
Das globale Object Screen erlaubt das Auflisten aller Formulare:
Delphi-Quellcode:
Jetzt muss du nur noch herausfinden, wie man zur Laufzeit einen Menüpunkt erzeugt.
for i:=0 to Screen.FormCount-1 do
begin tmpcaption := Screen.Forms[i].Caption; if Screen.Forms[i] = Application.MainForm then // nichts tun (Hauptformular soll nicht ins Menü) else ErzeugeDynamischenMenuEintrag(tmpcaption); end; |
Re: Forms einer Applikation in einem Menu anzeigen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:07 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