13/05/31 23:50:53.77 .net
TForm1 = class(TForm)
Panel1: TPanel; //Ａｌｉｇｎ=clClient;
Splitter1: TSplitter; //Ａｌｉｇｎ=clRight;
Memo1: TMemo; //Ａｌｉｇｎ=clRight;
procedure FormResize(Sender: TObject);
procedure Splitter1Moved(Sender: TObject);
private
rp:Single;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
if rp <> 0 then
Memo1.Width := Round(ClientWidth * rp);
rp := (Memo1.Width / ClientWidth);
end;
procedure TForm1.Splitter1Moved(Sender: TObject);
begin
rp := 0;
end;