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 发布