如何在程序运行期用鼠标拖动控件并能改变其大小 在程序运行的时候,可以用鼠标把某控件拖到窗体内的任意地方并能改变其大小,就像在设计阶段时的效果一样.请各位大虾们指教,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 转贴unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ExtCtrls;type TMyControl = Class(TControl);type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Panel1: TPanel; procedure FormCreate(Sender: TObject); private procedure MyMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; (Sender as TControl).Perform(WM_SYSCOMMAND,$F012,0);end;procedure TForm1.FormCreate(Sender: TObject);var I:Integer;begin for I:=0 to Form1.ComponentCount-1 do begin if (Form1.Components[I] is TControl) then begin TMyControl(Form1.Components[I]).OnMouseDown:=MyMouseDown; end; end;end;end. 用代码判断窗体form2是否已经关闭,如果已关闭,则显示这个窗体 如何在运行过程中用一个按钮中断程序? 求助 关于fast report 打印时如何判断系统已经与网络打印机连接 请问:如何获取某一目录下所有的图片文件的文件名? 关闭报表窗体极慢,缘何?? 在DBGrid中如何写数据(不会数据库相连)? DevExpress QuantumGrid在打引的时候怎么添加表格的表头啊。? Mediaplayer问题!望高手指导 Help Me,A Problem Of ADOQuery.SQL.Text. 谁有用IDHTTP抓取网页HTML的例子,网页地址有重定向. 一个很诧异的sql语句问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, ExtCtrls;type TMyControl = Class(TControl);type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
private
procedure MyMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
implementation{$R *.DFM}procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
(Sender as TControl).Perform(WM_SYSCOMMAND,$F012,0);
end;procedure TForm1.FormCreate(Sender: TObject);
var
I:Integer;
begin
for I:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[I] is TControl) then
begin
TMyControl(Form1.Components[I]).OnMouseDown:=MyMouseDown;
end;
end;
end;end.