Hallo leute ich hab hier ein kleines Problem mit dem nutzen von Image Dateien aus einer selbst erstellten klasse heraus:Ich kann sie zwar
ganz normal aus der TForm klasse heraus aufrufen und ihre eigenschaften veränderen aber aus meiner klasse geht das nicht, obwohl beide in der selben
unit stehen.Hab auch schon versucht allesmögliche davorzuschreiben hat aber nix funktioniert.Da sich einige aus dieser Fragestellung heraus sehr wahrscheinlich nicht viel vorstellen können hier mein Quellcode.
Delphi-Quellcode:
TSupermari=class (TObject)
public
posx:integer;
posy:integer;
procedure bewegen(x,y:integer);
end;
var
Form1: TForm1;
Supermari:TSupermari;
implementation
{$R *.DFM}
procedure Tsupermari.bewegen(x,y:integer) ;
var i:integer;
begin
Form1.Image1.visible:=true;// Hier liegt das Problem er complimiert es zwar macht aber an dieser stelle nix mit dem Image
Form1.Image2.visible:=false;
for i:=1 to y do begin
Form1.Image1.top:=Form1.arsch.top-1 end;
for i:=1 to y do begin
Form1.Image1.top:=Form1.top-1 end;
end;
Ich bedanke mich schon im vorraus bei allen Antwortgebern herzlich!!
Gruß Generaljim