[mskvkin]

мне необходимо заблокировать перемещение формы за ее заголовок и заблокировать нажатия на системные кнопки меню пишу на delphi 2009 сколько на форумах повычитывал у меня не работает или я что то не так делаю???

Помогите пожалуйста!!!
Заранее огромное спасибо!!!

[TOJluK]

"перемещение формы за ее заголовок"- что это значит?
Установи в св-ах Form1 -> BorderIcons нужные пункты в False и запрети закрытие формы:

Код:

procedure Form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action :=caNone;
end;

[mskvkin]

в том то и дело что кнопки должны иметь видимость равной True
а мне надо отключить события при нажатии на них

Мне надо запретить перемещение формы за ее заголовок

[Nyctos Kasignete]

Код:

...

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
    procedure WMWINDOWPOSCHANGING(var Msg: TMessage); message WM_WINDOWPOSCHANGING;
  public
    { Public declarations }
  end;

....


procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  if (Msg.WParam <> SC_MAXIMIZE) and
     (Msg.WParam <> SC_MINIMIZE) and
     (Msg.WParam <> SC_CLOSE) then inherited;
end;

procedure TForm1.WMWINDOWPOSCHANGING(var Msg: TMessage);
var
  wp: PWindowPos;
begin
  wp := PWindowPos(Pointer(Msg.LParam));
  wp^.flags := wp^.flags or SWP_NOMOVE;
  Msg.LParam := Integer(wp);
  inherited;
end;

[mskvkin]

Огромное спасибо

[mskvkin]

А как запретить вызов системного меню при нажатии на иконку в заголовке