冬雪雪冬 发表于 2017-8-15 22:23:41

围观窗体与组件02 - 零基础入门学习Delphi024

文本型控件包括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中加入ShellAPIlabel内容的显示，小甲鱼是用数组来完成的，我改用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;



不多太少 发表于 2018-2-25 09:15:42

不错 不错 我也是用的Copy

13328593595 发表于 2023-8-21 17:37:58

不多太少 发表于 2018-2-25 09:15
不错 不错 我也是用的Copy

完全不明白啊

13328593595 发表于 2023-8-21 20:32:14

API在哪啊，哪位大佬告诉我一下
页: [1]
查看完整版本: 围观窗体与组件02 - 零基础入门学习Delphi024