Перенос картинки в PaintBox (delphi)

[Dalagardi]

Никак не могу перенести готовую картинку в PaintBox
Пробовал и так

Procedure Tform1.panelClickimg(sender:Tobject);
var b:Tpicture;
begin
form1.Caption:=Timage(sender).name;
b:=Tpicture.Create;
b.Assign(Timage(sender).Picture);
form3.PaintBox1.Canvas.Draw(0,0,b.Graphic);
form3.show;
end;

И так

Procedure Tform1.panelClickimg(sender:Tobject);
var b:Tpicture;
begin
form1.Caption:=Timage(sender).name;
b:=Tpicture.Create;
b.Graphic:=Timage(sender).Picture.Graphic;
form3.PaintBox1.Canvas.Draw(0,0,b.Graphic);
form3.show;
end;
end;

[Grag]

Объясни, плиз, в твоем коде вот это
b.Assign(Timage(sender).Picture);

Timage - это класс или имя компоненты?

[Dalagardi]

хм...я в терминах не очень) по ходу класс...в общем это событие возникает при клике пользователя по картинке(картинка в динамическом массиве), и должен открываться редактор, но jpg изображения не переливаются в PaintBox

[Grag]

Сообщение от Dalagardi

хм...я в терминах не очень) по ходу класс...в общем это событие возникает при клике пользователя по картинке(картинка в динамическом массиве), и должен открываться редактор, но jpg изображения не переливаются в PaintBox

Ну, а работать то нужно с конкретным экземпляром класса...

[russian-stalker]

а так?

form3.PaintBox1.Canvas.Draw(0,0,Timage(sender).picture.bitmap);

[Dalagardi]

Сообщение от Grag

Ну, а работать то нужно с конкретным экземпляром класса...

То есть? Что мне нужно сделать?

[Dalagardi]

Сообщение от russian-stalker

а так?

form3.PaintBox1.Canvas.Draw(0,0,Timage(sender).picture.bitmap);

неа,не прокатило =(