围观窗体与组件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中加入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;

不多太少

不错 不错 我也是用的Copy

13328593595

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

完全不明白啊

13328593595

API在哪啊，哪位大佬告诉我一下