а первый взгляд просто..

[Аlex]

У меня вдруг возникла вот такая ситуация: надо короче в процедуре OnMouseMove узнать когда будет отпущена левая кнопка хвостатой причем на скрине. Ну типа чтобы форму можно было перетаскивать, зацепив в любом месте.Только дело в том, что формы от формы не осталось (она вся перекрыта компонентами).Я написал так:

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  var
  crs:Tpoint;
begin
GetCursorPos(crs);
while {нажата левая кнопка} do
begin
Form1.Top:=crs.X-X;
Form1.Left:=crs.Y-Y;
end;
end;

Осталось только проверить когда нажата левая кнопка мыши и когда отпущена и завершить цикл.Кто чем может подскажите плз.

[BOBAH13]

удали єтот код

вот лучшее рещение

procedure MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;

[Аlex]

!!! Интересно только как оно работает

[Voland]

А ещё лучше (и проще) перехватывать сообщение WM_NCHITTEST и в нужных местах возвращать HTCAPTION. Всё остальное винда сделает сама.

[Сильванович Михаил]

var
OldLeft,OldTop: integer;
Dragging: boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
Dragging:=false;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (button=mbLeft)and(x>3)and(x<130)an d(y>2)and(y<20) then
begin
Dragging:=true;
OldLeft:=X;
OldTop:=Y;
end;
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Dragging then
begin
Left:=Left+X-OldLeft;
Top:=Top+Y-OldTop;
end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Dragging:=false;
end;

<- Помню форму я перетаскивал так. (когда нацеплял на нее свой "регион")

[Voland]

^^^ Я точно так же делал, пока не узнал про NCHITTEST. Зачем мучиться, если всё уже предусмотрено. Вот так:

...
type
  TForm1 = class(TForm)
    Shape1: TShape;
    procedure WMNcHitTest(var msg: TWMNCHitTest); message WM_NCHITTEST;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Types;

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNcHitTest(var msg: TWMNCHitTest);
var pt: TPoint;
begin
  pt:=ScreenToClient(SmallPointToPoint(msg.Pos));
  if PtInRect(ClientRect, pt) and PtInRect(Shape1.BoundsRect, pt) then
    msg.Result:=HTCAPTION else inherited;
end;

Теперь форму можно будет таскать за Shape1. И даже если дважды щёлкнуть по ней, окно развернётся на весь экран, как и на настоящем заголовке.

[Аlex]

Сообщение от Voland

^^^ Я точно так же делал, пока не узнал про NCHITTEST. Зачем мучиться, если всё уже предусмотрено. Вот так:
...

Есть некоторое неудобство при ее использовании например с нажатием кнопок могут возникнуть проблемы и контекстное меню будет как у заголовка. Мне например больше нравиться предыдущий способ (он кстати и намного короче)

[Voland]

Ну не знаю, я никаких проблем не замечал. А контекстное меню, кстати, не будет там появляться.