TPicShow componentinin runtime da olusturma.

[Burhan_ast]

Mrb

TPicShow isimli bir componenti kullaniyorum, runtime olusturmak istedigimde hata aliyoru,
www.delphiarea.com componentin sitesi,

procedure ....

Begin

with TPanel.Create(Self) do
begin
Name := 'Panel1';
Parent := Self;
Left := 182;
Top := 84;
Width := 156;
Height := 156;
BevelOuter := bvNone;
BorderWidth := 1;
TabOrder := 0;
Visible := False;
end;





with TPicShow.Create(TwinControl(FindComponent('Panel1'))) do
begin
Name := 'PicShow1';
Parent := TwinControl(FindComponent('Panel1'));
Left := 1;
Top := 1;
Width := 154;
Height := 154;
// Picture := // please assign
Stretch := True; // bu satira hata aliyorum
Style := 127;
TabOrder := 0;
Threaded := False;
OnClick := PicShow1Click;
OnMouseLeave := PicShow1MouseLeave;
OnMouseMove := PicShow1MouseMove;
end;

TPicShow(FindComponent('PicShow1')).Pciture.LoadFromFile('C:\Deneme.jpg');

end;

[aslangeri]

s.a.
"hata alıyorum" ifadesi bizim için pek bir anlam ifade etmiyor. oyüzden hata mesajını ve hatayı verdiği satırları gösterirseniz daha iyi olur kanaatindeyim.
iyi çalışmalar.