Hi Leute!
Ich möchte in meinem Programm dynamisch Images erzeugen. Dafür habe ich eiine Procedure geschrieben und die in
Unit 2 gepackt (zu den anderen Funktionen). Leider hat er ein Problem mit dem Self. er erkennt es in
Unit 2 icht, hingegen dies im Hauptprogramm funktioniert. Woran liegt das?
Delphi-Quellcode:
procedure neues_image (image_alt,image_neu:Timage;scrollbox1:Tscrollbox;zwischenraum:integer);
begin
image_neu:=Timage.create(Self);
with image_neu do
begin
Parent:=ScrollBox1;
Left:=image_alt.left;
Top:=image_alt.Top+image_alt.Height+zwischenraum;
end;
end;
Danke schon einmal im voraus...
MfG Anna