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;