Ок спасибо большое!!!
У меня возникает ещё один вопрос: мне нужно чтобы помимо этого можно было перемещать форму с помощью мыши я пишу:
Код:
procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
inherited;
Msg.Result := HTCAPTION;
end;
но при этом больше нельзя изменять размер формы! Помогите пожайлуста!