procedure TForm1.StaticText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) then
begin
ReleaseCapture;
SendMessage((Sender as TStaticText).Handle, WM_SYSCOMMAND, SC_MOVE or 2, 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TT: TStaticText;
begin
TT := TStaticText.Create(Application);
TT.Caption := 'Test';
TT.Parent := Form1;
TT.OnMouseDown := StaticText1MouseDown;
end;
procedure TForm1.StaticText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) then
begin
ReleaseCapture;
SendMessage((Sender as TStaticText).Handle, WM_SYSCOMMAND, SC_MOVE or 2, 0);
end;
end;