关于TSCrollBox问题

wzs_wzs123 2004-05-11 11:58:03

在TSCrollBox中动态添加控件，用程序设定每个控件的位置，
在onResize事件中重新设定位置，可是一旦出现滚动条，拉动滚动条后，在改变
TSCrollBox尺寸，就会发现控件的位置不对，起始点不再是TSCrollBox的原点
而是拉动滚动条后，在TSCrollBox可见的起始点为起始点，这个问题怎么解决

...全文

245 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

wzs_wzs123 2004-05-11

打赏
举报

回复

up

qizhanfeng 2004-05-11

打赏
举报

回复

在动态创建控件之前先将
ScrollBox1.VertScrollBar.Position:=0;
ScrollBox1.HorzScrollBar.Position:=0;
试试

wzs_wzs123 2004-05-11

打赏
举报

回复

lijinghe1(副乡长) :ok了

lijinghe1 2004-05-11

打赏
举报

回复

减去VertScrollBar.ScrollPos

Delphi XE2应用系统皮肤后 TscrollBox Brush画刷设置无效，通过禁用皮肤功能解决。

Delphi 滚动字条字体特效

DELPHI动态创建删除FRAME unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,FM; type TForm2 = class(TForm) Panel1: TPanel; Button2: TButton; ScrollBox1: TScrollBox; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TFM = Array Of TFrame1; var Form2: TForm2; aFM: TFM; procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall; implementation {$R *.dfm} procedure DeleteArrItem(var arr: TFM ; Index: Integer); var Count: Cardinal; i:integer; begin Count := Length(arr); if (Count = 0) or (Index = Count) then Exit; Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0])); SetLength(arr, Count - 1); for I := 0 to Length(arr) - 1 do begin arr[i].Label1.Caption:=inttostr(i); end; end; procedure TForm2.Button2Click(Sender: TObject); var fram:TFrame1; begin SetLength(aFM,length(aFM)+1); aFM[length(aFM)-1] :=TFrame1.Create(nil) ; fram:=aFM[length(aFM)-1]; fram.Label1.Caption:=inttostr(length(aFM)-1); fram.Parent:=ScrollBox1; end; end. unit fm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFrame1 = class(TFrame) GroupBox1: TGroupBox; Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation uses unit2; {$R *.dfm} procedure TFrame1.Button1Click(Sender: TObject); begin DeleteArrItem(aFM,strtoint(label1.Caption)); ( Sender as Tbutton ).Parent.Parent.Destroy; end; end.

TscrollBox TImages应用。

Delphi拖动图片不出现滚动条..rar

5,939

社区成员

262,944

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章