[Денис]

как сделать чтобы у формы небыло заголовка и можно было изменять её размеры?

[Keygenmusic]

Код:

procedure TForm1.FormShow(Sender: TObject);
var tmp:dword;
begin
  SetWindowLong(Handle,GWL_STYLE, WS_SIZEBOX or WS_BORDER);
  tmp:=GetSystemMetrics(SM_CYCAPTION);
  Height:= Height - tmp; //убрать как бы то, что осталось от заголовка и 
  Top:=Top + tmp;  //заодно подвинуть под заголовок и перерисовать окно.
end;

[Денис]

Ок спасибо большое!!!
У меня возникает ещё один вопрос: мне нужно чтобы помимо этого можно было перемещать форму с помощью мыши я пишу:

Код:

 
procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
   inherited;
   Msg.Result := HTCAPTION;
end;

но при этом больше нельзя изменять размер формы! Помогите пожайлуста!

[Winny]

Надо писать не:

Код:

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
   inherited;
   Msg.Result := HTCAPTION;
end;

А надо писать обработчик на событие OnMouseDown главной формы, которую ты хочешь перенести:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  TForm(form1).perform(WM_SYSCOMMAND, $F012, 0);
end;
end.

Вот так форма будет перемещаться.

[Денис]

Форма переносилась и до этого но теперь и её размеры можно изменять
Огромное СПАСИБО!!!