Dynamisch erstellte Form per gedrückter Maustaste verschiebe

[Logic]

Danke an euch beide erstmal!

Also ich erzeuge mit folgendem Code (siehe weiter unten) meine Form und u.a. ein bild, dass dann das OnMouseDown haben sollen.

D.h. ich füge die Deklaration in meine Unit, genauso wie die Implementierung ein. Bzw. ändere beim Erstellen TForm auf TMyForm um... nur leider meckert mir da Delphi:

Zitat:

[Error] notes.pas(181): Undeclared identifier: 'FormMouseDown'
[Error] notes.pas(47): Unsatisfied forward or external declaration: 'TMyForm.Create'

Delphi-Quellcode:

procedure makeZettel(nummer:integer);
begin
  zettel.zettel:=TForm.Create(Application);
  zettel.zettel.Color:=Form2.Color;
  zettel.zettel.BorderStyle:=Form2.BorderStyle;
  zettel.zettel.TransparentColor:=Form2.TransparentColor;
  zettel.zettel.TransparentColorValue:=Form2.TransparentColorValue;
  zettel.zettel.Width:=Form2.Width;
  zettel.zettel.Height:=Form2.Height;
  zettel.zettel.Name:='f_'+IntToStr(nummer);

  zettel.hintergrund:=TImage.Create(zettel.zettel);
  zettel.hintergrund.Picture:=Form2.Image1.Picture;
  zettel.hintergrund.Top:=Form2.Image1.Top;
  zettel.hintergrund.Left:=Form2.Image1.Left;
  zettel.hintergrund.Width:=Form2.Image1.Width;
  zettel.hintergrund.Height:=Form2.Image1.Height;
  zettel.hintergrund.Parent:=zettel.zettel;
  zettel.hintergrund.Name:='bild';
  zettel.hintergrund.Visible:=true;

  [...]

  zettel.zettel.Visible:=true;
end;

Der record sieht folgendermaßen aus:

Delphi-Quellcode:

type T_Forms  = record
                  zettel            : TForm;
                  hintergrund       : TImage;
                  subject, nummer   : TLabel;
                  text              : TMemo;
                  close             : TButton;
                end;