Aua... Fehler...
http://simonrap.square7.ch/delphi/aua.JPG
Delphi-Quellcode:
type
Tclass=CLASS
Img1,Img2,Img3:TPicture;
Obj:TObject;
procedure state(n:INTEGER);
end;
...
var
Form1: TForm1;
var xxx:TClass;
...
procedure TClass.state(n:INTEGER);
begin
case n of
1:(obj as TImage).Picture:=IMG1;
2:(obj as TImage).Picture:=IMG2;
3:(obj as TImage).Picture:=IMG3;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
xxx:=TClass.Create;//also das ist eigentlich beim form.create, aber damit ihr wisst, dass es das auch gibt^^
xxx.Img1.Assign(img_1.Picture);//hier meckert er
xxx.Img2.Assign(img_2.Picture);
xxx.Img3.Assign(img_3.Picture);
xxx.state(1);
//und noch paar weitere Sachen, aber dazu kommt es eh nicht...
end;
An img_1 sollte sich was ändern, is aber noch nicht eingebaut^^... also ne
geht das sonst noch irgwndwie anders?
mfg simonrap
[edit] "aua", weil ich die boxen voll aufgedreht hatte... daasss war laut^^[edith]