hyperlinks on names

2005-09-20 16:10:27 +00:00
parent 464af7d226
commit 6f6de8c723
2 changed files with 44 additions and 15 deletions
--- a/2.10/Source/About.pas
+++ b/2.10/Source/About.pas
@ -46,6 +46,7 @@ type
    procedure lblFlamecomClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure lblCreditClick(Sender: TObject);
+    procedure DevelopersClick(Sender: TObject);
  private
    { Private declarations }
    URL :String;
@ -93,4 +94,10 @@ begin
    nil, nil, SW_SHOWNORMAL);
 end;

+procedure TAboutForm.DevelopersClick(Sender: TObject);
+begin
+  ShellExecute(ValidParentForm(Self).Handle, 'open', PChar(TLabel(Sender).Hint),
+    nil, nil, SW_SHOWNORMAL);
+end;
+
 end.