Frequently Asked Component Specific Questions
Options |
Display all FAQ items |
Displaying items 1 to 1 of 1, page 1 of 1
<< previous next >>



Adding an email hyperlink in the task dialog
You can easily add a hyperlink for an email address that will automatically start the default email client with following code:
uses ShellAPI; procedure TForm2.Button1Click(Sender: TObject); begin TaskDialog1.Options := [doHyperlinks]; TaskDialog1.Title := 'TaskDialog with expandable text & footer with hyperlink'; TaskDialog1.Instruction := 'Do you like the Windows Vista TaskDialog?'; TaskDialog1.Icon := tiQuestion; TaskDialog1.Content := 'The new TaskDialog provides a standard & enhanced way for interacting with the user'; TaskDialog1.ExpandedText := 'Many new options make the TaskDialog very different from the old Windows MessageBox'; TaskDialog1.ExpandControlText := 'Click to hide'; TaskDialog1.CollapsControlText := 'Click to see more'; TaskDialog1.Footer := 'Brought to Delphi by TMS software'; TaskDialog1.FooterIcon := tfiWarning; TaskDialog1.Execute; end; procedure TForm2.TaskDialog1DialogHyperlinkClick(Sender: TObject; HRef: string); begin ShellExecute(0,'open',pchar(href),nil,nil,sw_normal); end;