当用DRAG-DROP拖曳是如何捕获当前鼠标位置
解决方案 »
- 请问为什么没有MSIME?
- DBGrid问题(在线等)
- 关于checkbox
- Edit2.Text中显示ADOQuery1的内容
- 请问这样的字符串替换应该怎么做?谢谢。
- 按下Ctrl+K+L键如何在窗口中捕捉?
- 如何取控件的属性列表?
- DELPHI与SQL2000连接不上,请问是不是要在SQL2000中做一些设置啊
- 怎么样在程序中调用一个.exe文件,点确定按纽就让这个.exe文件自动执行起来?
- “参与分”是干什么的?..
- messagebox(self.Handle,inttostr(12),'title',mb_ok);为何出错
- Missing Data Provider or Data Packet,欢迎up
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Label1: TLabel;
procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure Button1EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := True;
Caption := Format('X: [%d] Y: [%d]', [X, Y]);
end;procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Caption := Format('X: [%d] Y: [%d]', [X, Y]);
end;procedure TForm1.Button1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
TButton(Sender).Parent := TWinControl(Target);
TButton(Sender).Left := X;
TButton(Sender).Top := Y;
Label1.Caption := TWinControl(Sender).Parent.Name;
end;procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := True;
end;end.