TLabel mit hartem Umbruch

[user0815]

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
begin
  try
    ShowMessage(PChar(TLabel(Sender).Hint));
  except
  end;
end;

oder

Delphi-Quellcode:

uses
  ShellApi;
...
procedure TForm1.Label1Click(Sender: TObject);
begin
  try
    ShellExecute(0, nil, PChar(TLabel(Sender).Hint), nil, nil, SW_SHOW);
  except
  end;
end;