Как правильно применить код?

[artemavd]

Есть код, который позволяет расстянуть форму за края, даже если у нее установлено свойство

BorderStyle=bsNone

Вот этот код:

type 
  TForm1 = class(TForm) 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
  inherited CreateParams(Params); 
  Params.Style := (Params.Style or WS_THICKFRAME); 
end;

Как его применить к динамический созданной форме? А то если я просто вызываю процедуру, то у меня не расстягивается форма.

[Пепел Феникса]

класс вашей формы должен иметь этот код в себе.

[artemavd]

А разве его там нет? Чо-т не понял.

[Stilet]

Он имел ввиду что ты должен создавать форму типа TForm1 а не просто TForm
Тогда обьект-форма будет управляться таким кодом, как ты описал

[artemavd]

Так:

type 
  TForm1 = class(TForm) 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
  inherited CreateParams(Params); 
  Params.Style := (Params.Style or WS_THICKFRAME); 
end;
...

procedure TForm1.sSpeedButton14Click(Sender: TObject);
var
 Form: TForm1;
begin
 fFormName:=0;
//создаю форму динамически
   Form:=TForm1.Create(Self);
   Form.BorderIcons:=[biSystemMenu];
   Form.Caption:=' ';
   Form.Height:=220;
   Form.Width:=200;
   Form.Position:=poDesigned;
   Inc(xLeft,205);
   if xLeft + Form.Width > Screen.Width then
   begin
     xLeft:=0;
     Inc(xTop,50);
   end;
   Form.Top:=xTop;
   Form.Left:=xLeft;
   Inc(fFormName);
   Form.Name:='Form' + IntToStr(fFormName);
   Form.Caption:='№' + IntToStr(fFormName);
   Form.Icon.Empty;
   Form.BorderStyle:=bsNone;
   CreateParams(Params);
   Form.Color:=clRed;

???

[Stilet]

Form.BorderStyle:=bsNone;
CreateParams(Params);

А вот принудительный вызов CreateParams ИМХО лишний.

The CreateWnd method calls CreateParams to initialize the parameters it passes to CreateWindowHandle.

Так что твои потуги напрасны. Как гриццо - "Его не зовут, он сам приходит"