Unendliche Formen erzeugen (wenn nötig)

[johny]

Zitat von Aya:

Hi,

du hast "meinen" Code falsch kopiert...
du mußt Shape_BannerMouseMove (etc.) zu einer Procedure von Form1 machen, also bei Form1 im z.B. Private bereich deklarieren.

Au'revoir,
Aya~

Oh ja, da hatte ich beim ausprobieren ein wenig gelöscht und das ein oder andere verändert.
Wenn ich die Ereignisse aber zu einer Prozedur von Form1 mache, wird beim Klick auf den Banner der 2. Form die Erste verschoben - nicht aber die zweite.

---

Delphi-Quellcode:

var //Global!
  MyForms: Array of TForm;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(MyForms,Length(MyForms)+1);
  MyForms[High(MyForms)]:=TForm.Create(self);
  MyForms[High(MyForms)].Parent:=self;
  MyForms[High(MyForms)].Width:=150;
  MyForms[High(MyForms)].Height:=150;
  MyForms[High(MyForms)].Caption:=Caption;
  MyForms[High(MyForms)].Show;
end;

Also wenn ich die zweite Form so erzeuge, ist sie nur innerhalb der Ersten verschiebbar.
Bei meinem Programm sollten die Formen aber ähnlich der Delphi-Oberfläche angeordnet sein - eine Menüleiste, eine Werkzeugleiste und eine Arbeitsfläche.

Mit dem Programm habe ich mich wohl doch ein wenig übernommen. Ich mache besser erst einmal mit einfacheren Sachen weiter, bevor ich wieder darauf zurückkomme.

Dennoch vielen Dank für deine Mühe, das ein oder andere habe ich auch hier wieder dazugelernt.