马上注册,结交更多好友,享用更多功能^_^
您需要 登录 才可以下载或查看,没有账号?立即注册
x
文本型控件包括Label,StaticText和TabControl,PageConTrol。实际上后两个不能算文本控件。StaticText的功能基本与Label相同,只是它有窗口句柄,是窗口型文本控件。当组件的快捷键必须属于窗口型组件的时候,应该使用StaticText 组件,而不能使用Label 组件。----不明白! TabControl, PageControl都是容器型控件,但TabControl每个页面上控件都是相同的,不知道它到底有什么作用。 PageControl就好用多了,每个页面可以放置不同的内容。 小甲鱼的例题是用PageControl做的,主要功能是按图片就打开相应的网页,label的内容会从左到右逐渐显示。 打开网页需要一个windows的API: ShellExecute(Application.Handle,nil, '网址', nil, nil, SW_SHOWNORMAL); 首先要在user中加入ShellAPI label内容的显示,小甲鱼是用数组来完成的,我改用Copy做的。 主要程序: - implementation
- {$R *.dfm}
- var
- str1, str2: String;
- i, j: integer;
- procedure TForm1.Image1Click(Sender: TObject);
- begin
- ShellExecute(Application.Handle, nil,
- 'http://bbs.fishc.com/forum-173-1.html',
- nil, nil, SW_SHOWNORMAL);
- end;
- procedure TForm1.Image2Click(Sender: TObject);
- begin
- ShellExecute(Application.Handle, nil,
- 'http://bbs.fishc.com/forum-38-1.html',
- nil, nil, SW_SHOWNORMAL);
- end;
- procedure TForm1.Image3Click(Sender: TObject);
- begin
- ShellExecute(Application.Handle, nil,
- 'http://bbs.fishc.com/forum-33-1.html',
- nil, nil, SW_SHOWNORMAL);
- end;
- procedure TForm1.Timer1Timer(Sender: TObject);
- begin
- if i > length(str1) then
- i:= 2;
- if j > length(str2) then
- j:= 2;
- label1.Caption:= Copy(Str1, 1, i);
- Label2.Caption:= Copy(str2, 1, j);
- i:= i + 2;
- j:= j + 2;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- str1:= '动态字符串的演示效果。';
- str2:= '与小甲鱼一起学习编程,边看边学。';
- i:= 2;
- j:= 2;
- end;
复制代码
|