Moinsen!
Es geht auch mit den normalen Komponenten von Delphi.
Hier ein kleines Beispiel.
Benötigt wird lediglich TStaticText.
Hier die OnClick-Methode:
Quelltext
1: 2: 3: 4:
| procedure TForm2.StaticText2Click(Sender: TObject); begin ShellExecute(handle,'open','http://www.madbweb.de',nil,nil,sw_show); end; |
Und nun das Beispiel für den Mauszeiger:
Quelltext
1: 2: 3: 4: 5:
| procedure TForm2.StaticText2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin TForm2(Sender).Cursor:=crHandPoint; end; |
Grüße
Torsten