Fenstergröße ändern (durch 'Ziehen' 'verboten')

[DeddyH]

Hast Du irgendwelchen Code im OnResize? Kurzes Testprojekt meinerseits:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption = '>>' then
    begin
      Width := 400;
      Button1.Caption := '<<';
    end
  else
    begin
      Width := 200;
      Button1.Caption := '>>';
    end;
end;

Nicht elegant, aber funktioniert (BorderStyle = bsSingle).