深圳全飞鸿

标题: delphi获得帮助菜单的实现/about/help [打印本页]

---

作者: admin    时间: 2019-6-25 23:42
标题: delphi获得帮助菜单的实现/about/help
uses ShellAPI;

procedure openNagomes(t:thandle;p:string);
begin
    ShellExecute(self.handle, 'Open', 'IEXPLORE.EXE', pchar('http://www.nagomes.com/index.php?a=a'+p), '', SW_SHOWNORMAL);
end;

---

作者: admin    时间: 2019-6-25 23:49
方案二： OnClieck , MouseDown

1. 
   
2. procedure Tmyaboutfrm.lbl1MouseEnter(Sender: TObject);
   
3. begin
   
4.    with (Sender as TLabel).Font  do
   
5.    begin
   
6.      Color:=clRed;
   
7.      Style:=[fsunderline];      //[fsbold,fsunderline];
   
8.    end;
   
9. end;

复制代码

1. procedure Tmyaboutfrm.lbl1MouseLeave(Sender: TObject);
   
2. begin
   
3.    with (Sender as TLabel).Font  do
   
4.    begin
   
5.      Color:=clBlack;
   
6.      Style:=[];
   
7.    end;
   
8. end;

复制代码

---

欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/)

Powered by Discuz! X3.2