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

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 Формы).

Всему виной было событие OnResize. Без него всё стало нормально.

Нажмите, чтобы раскрыть...

Shouldercannon сказал(а):

Всему виной было событие

Нажмите, чтобы раскрыть...