[agentbond007]

Спасибо всем , я нашел ответ, один хороший человек написал код:

Код:

  private
    procedure CreateParams(var Params: TCreateParams) ; override;
...
procedure TForm1.CreateParams(var Params: TCreateParams) ;
begin
   inherited;
   Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
   Params.Style := Params.Style or WS_SIZEBOX;
end;

Админ: Пользуемся тегами для оформления кода!