label 的拖动问题.!!!!!!!!!

[tgsh]

我做了一个程序.需要在表单中拖动文本框.要求就象在设计表单的是否的样子.不闪烁,可以拖动到表单的任意位置.谢谢.帮忙.解决后可以多给分.

[chenylin]

用静态文本吧,LABEL没有句柄:
procedure TForm1.StaticText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
StaticText1.Perform(wm_syscommand,$f012,0);
end;

[redmoon_line]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(对象Handle, WM_SYSCOMMAND, $F012, 0);
end;

[redmoon_line]

也同意楼上的观点

[hellolongbin]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
drag:boolean;
x1,y1:integer;
implementation

{$R *.dfm}

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if shift=[ssleft] then
begin
drag:=true;
x1:=x;
y1:=y;
end;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
drag:=false;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if drag then
begin
Label1.Left:=Label1.Left-x1+x;
Label1.Top:=Label1.Top-y1+y;
end;
end;

end.

[wintergoes]

......................

[zklove]

redmoon_line(夕晨浪子) 的办法不错