13/06/16 22:26:33.28 .net
>>281-284
今更ですが最近似たようなプログラムを書いたので。
フォーム生成の後にリサイズイベントは起きますので
フォームのコンストラクターかOnCreateイベントハンドラで
割合を計算して記憶しておけば大丈夫みたい。
(フォームの宣言の一部)
private
FMemoWidthRatio: single;
procedure MemoryMemoWidthRatio;
(実現部)
procedure TForm1.FormCreate(Sender: TObject);
begin
MemoryMemoWidthRatio;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Memo1.Width := round(ClientWidth * FMemoWidthRatio);
end;
procedure TForm1.MemoryMemoWidthRatio;
begin
FMemoWidthRatio := Memo1.Width / ClientWidth;
end;
procedure TForm1.Splitter1Moved(Sender: TObject);
begin
MemoryMemoWidthRatio;
end;