Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Wie erstelle ich per Delphi (nicht von Hand) ein Formular


Killi - Do 28.11.02 18:11
Titel: Wie erstelle ich per Delphi (nicht von Hand) ein Formular
Hi!

Ich will Delphi ein paar Formulare erzeugen lassen - nur weiß ich nicht wie das geht - es sollen immer neue sein mit demselben Inhalt und versch. Koordinaten!
Kann mir jemand helfen?


matze - Do 28.11.02 18:55

am besten du suchst mal hier im forum nach NONVCL oder schaust dir mal die tuts auf http://www.luckie-online.de an !!!


Delete - Do 28.11.02 19:24
Titel: Re: Wie erstelle ich per Delphi (nicht von Hand) ein Formula
Killi hat folgendes geschrieben:
Hi!

Ich will Delphi ein paar Formulare erzeugen lassen - nur weiß ich nicht wie das geht - es sollen immer neue sein mit demselben Inhalt und versch. Koordinaten!
Kann mir jemand helfen?


:shock: Geht das noch mal auf verständlicher? Eventuell mit einem Beispiel?


Anonymous - Do 28.11.02 22:17

So wie ich das verstanden habe willst du das gleiche wie ein MDI Fenster, nur soll es kein MDI Fenster sein, d.h. du willst jede Menge von den gleichen Fenstern, die jedoch selbstständig sind.

Hier ein Beispiel. Es wird immer aufs neue eine voll funktionierende und eigenstängige Kopie von Form2 erstellt:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
function TForm1.CreateNewForm: Boolean;  // Unter Private eintragen
begin
  Result := True;
  with Form2 do Tag := Tag + 1; // Damit die Namen unterschiedlich sind
  with TForm2.Create(Application) do try
    Name := 'Form_' + IntToStr(Form2.Tag);
    Caption := 'Form_' + IntToStr(Form2.Tag);
    Left := Random(Screen.Width);
    Top := Random(Screen.Height);
    Show;
  except Result := False end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateNewForm;
end;