Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Unendliche Formen erzeugen (wenn nötig)

    Delphi
    by rayman, 21. Aug 2003
  Ja
  
  Ich hab eigentlich nur eine Schleife drum gemacht, damit alle Formuare erzeugt werden. Du kannst es ja so machen, wenn bei jedem Buttonclick nur ein Fenster geöffnet werden soll:
  
  var Form1: TForm1;
  myForms: array of TForm; // das Feld wird global deklariert ...
  
  procedure TForm1.FormCreate(Sender: TObject);
  var n:integer;
  begin
• Forum: Sonstige Fragen zu Delphi

  Re: Unendliche Formen erzeugen (wenn nötig)

    Delphi
    by rayman, 21. Aug 2003
  procedure TForm1.Button1Click(Sender: TObject);
  var myForm: Array of TForm;
  n: integer;
  begin
  for n:=0 to 10 do begin
  myForm := TForm.CreateNew(Application);
  myForm.Width := 200;
  myForm.Height := 100;
  myForm.Show;
  end;