TTrackBar 控制Memo1的Left和Width

//TTrackBar控制Memo1的Left和Width 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
    Memo1.Left:=Trackbar1.Position+18;
    Memo1.Width:=W-Memo1.Left;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    w:=Memo1.Width+Memo1.Left;
    H:=Memo1.Height+memo1.Top;
    TrackBar1.Min:=Trackbar1.Left;
    TrackBar1.Max:=TrackBar1.Width;
    TrackBar2.Min:=TrackBar2.top;
    TrackBar2.Max:=TrackBar2.Height;
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
    Memo1.Top:=Trackbar2.Position+18;
    Memo1.Height:=h-Memo1.top;
end;

通过 Wiz 发布