Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Neues Fenster (https://www.delphipraxis.net/21365-neues-fenster.html)

daniel8520 1. Mai 2004 19:03


Neues Fenster
 
Hallo,

ich möchte gern immerwieder ein neues Form/Frame erstellen. Nun hab ich aber leider kein Plan, wie ich das anstellen soll.

Kann mir jemand helfen?

alcaeus 1. Mai 2004 19:06

Re: Neues Fenster
 
Delphi-Quellcode:
Application.CreateForm(TForm2,NeuesForm);
oder
Delphi-Quellcode:
NeuesForm := TForm2.Create(Form1);

daniel8520 1. Mai 2004 19:13

Re: Neues Fenster
 
a) von welchem Typ müsste denn dann "NeuesForm" sein?

b) sollte es dem Unser möglich sein, wenn notwendig unendlich viel Forms zu erstellen, ohne dass diese im Quelltext einzeln registriert sind.

Vielleicht sag ich euch mal was ich vor hab:
Ich möchte eine ICQ Komponente verwenden, und ich möchte für jeden Chat mit einem anderen User natürlich ein neues Fenster öffnen. Ich weiß nur nicht, mit viel Usern mein User dann gleichzeitig chatten möchte, also sollte es möglich sein, dass der User unendlich viel Forms "selbst" erstellen kann.

Geht das irgendwie?

Skiron 1. Mai 2004 19:22

Re: Neues Fenster
 
Delphi-Quellcode:
const
  AnzFenster = 10;
var
  Fenster: array of TForm1; //liste min Fenstern
  i: integer;
begin
  setLength(Fenster, AnzFenster); //Wieviele fenster will ich?
  for i := 0 to high(Fenster) do begin
    Application.CreateForm(TForm1, Fenster[i]); //Fenster erstellen
    Fenster[i].Show; //und anzeigen
  end;
//Fenster wieder schließen
  for i := 0 to high(Fenster) do
    Fenster[i].Free; //und am end auch wieder abbauen
end;

daniel8520 1. Mai 2004 19:29

Re: Neues Fenster
 
Hab deinen Code mal ausprobiert.
Da geht dann ein Fenster auf, und gleich wieder zu. Weißt du warum?

daniel8520 1. Mai 2004 19:31

Re: Neues Fenster
 
Halt!!!!
Schon gut!
Hätte mir den Code mal genauer ansehen sollen!

Danke


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:44 Uhr.

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