TTrackBar 控制Memo1的Left和Width

最新推荐文章于 2023-12-19 23:45:53 发布

weixin_30416497

最新推荐文章于 2023-12-19 23:45:53 发布

阅读量108

点赞数

原文链接：http://www.cnblogs.com/xe2011/archive/2012/05/31/2527418.html

版权

//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;