delphi获得帮助菜单的实现/about/help

admin

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

方案二： 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;

复制代码