Как создать объект в Delhpi?

← →
eagle_ua © (2005-10-17 22:05) [0]

Как сделать так чтобы при нажатии кнопки мыши на форме туда не только загружался рисунок, но ещё и создавался объект типа Image

← →
Джо © (2005-10-17 22:16) [1]

Куда "туда"?

← →
GanibalLector © (2005-10-18 02:43) [2]

Телепартирую :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var I:TImage; B:TBitmap; begin I:=TImage.Create(Self); I.Left:=X; I.Top:=Y; I.Parent:=Self; with I.Canvas do begin B:=TBitmap.Create; B.LoadFromFile("C:\1.bmp"); StretchDraw(I.ClientRect,B); B.Free; end; end;

← →
GanibalLector © (2005-10-18 02:50) [3]

а на кой TImage ? Без него можно обойтись.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var B:TBitmap; ARect:TRect; begin ARect.Left:=X; ARect.Top:=Y; ARect.Right:=ARect.Left+50; ARect.Bottom:=ARect.Top+50; with Form1.Canvas do begin B:=TBitmap.Create; B.LoadFromFile("C:\1.bmp"); StretchDraw(ARect,B); B.Free; end; end;

Ну и я ещё "стелепартирую".
После всех этих действий, которые описал GanibalLector © (18.10.05 02:43) [2] - ссылку на I стоит сохранить с некоем списке. Для последущих манипуляций с I.

2 GanibalLector © (18.10.05 02:50) [3]

>а на кой TImage ? Без него можно обойтись.

Не. Ну а вдруг вышеописанный объект нужно переместить?

Как создать объект в Delhpi? Найти похожие ветки