[SERЖant]

Чуваки! В моей проге надо сделать так , чтобы форма перетаскивалась не за верхний бордюр , а когда ты нажмешь на саму форму. Верхний бордюр у меня отключен - borderstyle := bsNone. Помогите с советом.

[The Shadow]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    procedure Move(var Message: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Move(var Message: TWMNCHitTest);
begin
Message.Result:=HTCAPTION;
end;

end.

[SERЖant]

Спасибо огромное!

[SERЖant]

А нельзя ли эту функцию для изображения поставить? Просто у меня на форме есть фоновая картинка и на нее накиданы Label'ы. Вроде окно перемещается , а Label'ы не нажимаются (на них навешаны определенные функции).

[SERЖant]

Неужели никто не знает?

[The Shadow]

Поставь Label'ы в Panel

[SERЖant]

Да. Спасибо теперь все работает отлично!

[SERЖant]

Да . Спасибо. Теперь все работает.