Убрать меню.

[Манжосов Денис :)]

Вот Screen приложил. Как убрать из программы это меню средствами Delphi?

[Showy]

SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_SYSMENU);

Вот только кнопочки свернуть, закрыть и развернуть пропадут

[eoln]

Например перехват кликов мыши

private
{ Private declarations }
procedure WMNCMOUSERCLICK(var Message: TMessage);
   message WM_NCRBUTTONDOWN;
procedure WMNCMOUSELCLICK(var Message: TMessage);
   message WM_NCLBUTTONDOWN;
...
implementation

{$R *.dfm}
procedure TForm1.WMNCMOUSERCLICK(var Message: TMessage);
begin
  exit
end;

procedure TForm1.WMNCMOUSELCLICK(var Message: TMessage);
begin
  if Message.wParam = HTSYSMENU then exit
  else inherited
end;