Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
Как создать объект в 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;
← →
Германн © (2005-10-18 02:55) [4]Ну и я ещё "стелепартирую".
После всех этих действий, которые описал GanibalLector © (18.10.05 02:43) [2] - ссылку на I стоит сохранить с некоем списке. Для последущих манипуляций с I.
← →
Германн © (2005-10-18 03:00) [5]2 GanibalLector © (18.10.05 02:50) [3]
>а на кой TImage ? Без него можно обойтись.
Не. Ну а вдруг вышеописанный объект нужно переместить?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
