PDA

Просмотр полной версии : Не получается задать ширину



Shouldercannon
26.05.2011, 15:20
Собственно вот
...
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. Без него всё стало нормально.