Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:


Displaying items 1 to 1 of 1, page 1 of 1

<< previous next >>

TAdvTaskDialog
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;