关于屏幕选择图片和移动图片的问题？？？？？？？？(100分)

C

crystalgir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #1

我在表单上动态生成了图标(image) 我怎样选中它？并且能够对它进行拖动

 

C

crystalgir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #2

呜 没人回答么？

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #3

我来吧！
//图标(image)
不懂
是TImage对象吧！
如果没有现成的那就自己干喽！
1.在鼠标左键按下里记住鼠标位置
2.在鼠标左键松开时记住位置
3.位置计算
4.调整TImage位置

 

M

Milpas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #4

控件解决吧，找控件得了[]

 

Y

yuki2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #5

把TImage放进Panel1，Image1.Enabled:=false;
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
TControl(Sender).perform(WM_SysCommand, $F012, 0);
end;
end;

 

C

crystalgir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #6

to wlmmlw:我在表单上生成了太多的image图片 如果计算的话 太麻烦了
to yuki2003:按您这种方法，点击图片时不能拖动

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #7

把TImage放进Panel1，[red]Image1.Enabled:=false;[/red]
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
TControl(Sender).perform(WM_SysCommand, $F012, 0);
end;
end;

 

Y

yuki2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #8

这种方法只能拖动继承TControl类的控件。所以要拖动动的是Panel1。用F012查查以前的贴子吧。

 

Y

yuki2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #9

要不你拖动Form1试试
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releaseCapture;
TControl(Sender).Perform(WM_SYSCOMMAND,$f012,0);
end;