拖放控件的位置 我想在程序中用鼠标移动控件的位置,怎么实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我写的一个方法,用来在运行时拖动控件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private procedure MoveControl(WinControl: TWinControl; Shift: TShiftState; X, Y: integer); { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.MoveControl(WinControl: TWinControl; Shift: TShiftState; X, Y: integer);var SC_JMOVE: Word;begin if (X > 5) and (Y > 5) and (X < WinControl.Width - 5) and (Y < WinControl.Height - 5)then begin SC_JMOVE := $F009; WinControl.Cursor := crSizeAll; end else begin SC_JMOVE := $F000; WinControl.Cursor := crDefault; end; if Shift = [ssLeft] then begin ReleaseCapture; WinControl.Perform(WM_SYSCOMMAND, SC_JMOVE, 0); end;end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin MoveControl((Sender as TWinControl), Shift, X, Y);end;end. procedure TFormMain.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Button1.Perform(wm_syscommand,$F012,0);end; 我的图象是JPEG文件,是放在远程一个固定IP电脑下面的一个目录,我如何读取这个JPEG文件呢? delphi7 update1下Indy10安装后出现的编译问题! 如何将DBGrid中选中的一行上依次的字段值显示在Edit中 Dephi中有不有类似于Java中的Collection类,可以放任何对象? 请问有没有输入矩阵的控件? 如何备份SQL数据库中的某一个表 紧急求助......紧急求助 MS Agent 高手又请! BDE 最小安裝 快疯了…… 请教如何用IntraWeb实现以下效果 斑竹,我的贴子为什么总找不到,在我的问题里才能发现,为什么???
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
private
procedure MoveControl(WinControl: TWinControl; Shift: TShiftState; X, Y: integer);
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.MoveControl(WinControl: TWinControl; Shift: TShiftState; X, Y: integer);
var SC_JMOVE: Word;
begin
if (X > 5) and (Y > 5) and (X < WinControl.Width - 5) and (Y < WinControl.Height - 5)then
begin
SC_JMOVE := $F009;
WinControl.Cursor := crSizeAll;
end
else
begin
SC_JMOVE := $F000;
WinControl.Cursor := crDefault;
end; if Shift = [ssLeft] then
begin
ReleaseCapture;
WinControl.Perform(WM_SYSCOMMAND, SC_JMOVE, 0);
end;
end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
MoveControl((Sender as TWinControl), Shift, X, Y);
end;end.
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.Perform(wm_syscommand,$F012,0);
end;