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

[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. Без него всё стало нормально.

 

[ikot]

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

...
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]

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

procedure TForm1.FormResize(Sender: TObject);

 

[Brenli]

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

Строковое значение присваивал?

 

[Za9]

Конкретней задачу

 

[Titan]

Товарищи, вы порой на даты смотрите.
Осмелюсь предположить, что проблема не актуальна