Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Как создать объект в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
1-1129203791
VIsa
2005-10-13 15:43
2005.11.13
Помогите разобраться с прозрачностью в TPNGImage


3-1128080674
SERGEY-ZZZ
2005-09-30 15:44
2005.11.13
Базы данных через интернет


4-1126085594
jeka_t
2005-09-07 13:33
2005.11.13
Как открывать документы при помощи CreateProcess


2-1130083068
~SaM~
2005-10-23 19:57
2005.11.13
Треугольник


2-1129547718
Parth
2005-10-17 15:15
2005.11.13
Консольное приложение: иероглифы