Не получается задать ширину

[Shouldercannon]

Собственно вот

...
var
  Form1: TForm1;
  SizeY, SizeX: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  RegFile: TRegINIFile;
begin
  RegFile := TRegINIFile.Create('Software');
  RegFile.OpenKey('Project1', True);
  SizeY := RegFile.ReadString('Size', 'Height', '0');
  SizeX := RegFile.ReadString('Size', 'Width', '0');
  RegFile.Free;

  Caption := SizeY + '/' + SizeX;

  ClientHeight := StrToInt(SizeY);
  ClientWidth := StrToInt(SizeX);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  SizeY := IntToStr(ClientHeight);
  SizeX := IntToStr(ClientWidth);

  Label1.Caption := SizeY + '/' + SizeX;
end;

procedure TForm1.BExitClick(Sender: TObject);
var
  RegFile: TRegINIFile;
begin
  RegFile := TRegINIFile.Create('Software');
  RegFile.OpenKey('Project1', True);
  RegFile.WriteString('Size', 'Height', SizeY);
  RegFile.WriteString('Size', 'Width', SizeX);
  RegFile.Free;

  Application.Terminate;
end;
...

Хоть убейся, но ширина постоянно 266
P.S. Ширина 266 выставлена поумолчанию при создании формы (Properties Формы).

[Аватар]

Попробуйте Height и Width вместо ClientHeight и ClientWidth

[Shouldercannon]

Результат тот же

[Прик]

Может быть посмотреть свойство Constraints, все значения, которого, в нашем случае, должны быть нулю.
Еще посмотреть свойство BorderStyle, чтобы значение было bsSizeable.

[Аватар]

Уберите FormResize и сохраняйте размеры в BExitClick непосредственно из свойств формы. При выполнение ClientHeight := StrToInt(SizeY); отрабатывает FormResize и SizeX портится

[Shouldercannon]

Сообщение от Прик

Может быть посмотреть свойство Constraints, все значения, которого, в нашем случае, должны быть нулю.
Еще посмотреть свойство BorderStyle, чтобы значение было bsSizeable.

Всё по дефолту. Действитель OnResize всё портил, после того как я его убрал всё заработало нормально.