Link in Delphi einbauen!

[APP]

Hallo,
zur Installation von TLinkLabel auf das Package "PkgLinkLabel.dpk" doppelklicken, dann in D5 auf "installieren" drücken, danach erscheint in der Kompo-Leiste ein Reiter 'Delphi-PRAXiS' wo Du die Komponente findest.

[APP]

ich gebs auf, heute bin ich immer Zweiter

[Trouble_Maker]

hiho,
habs hinbekommen es zu installiern!

Aber wie kann ich jetzt es mit dieser Komponente einstellen, dass es ein Link wie im Internet ist ?
mit dem unterstrichenen, wenn die Maus darauf ist!

danke


Trouble_Maker

[Daniel B]

Zitat von APP:

Hallo,
zur Installation von TLinkLabel auf das Package "PkgLinkLabel.dpk" doppelklicken, dann in D5 auf "installieren" drücken, danach erscheint in der Kompo-Leiste ein Reiter 'Delphi-PRAXiS' wo Du die Komponente findest.

TLinkLabel hatte ich gepostet, das was sakura gepostet hat, heisst TDPLinkLabel. Nicht durcheinander bringen, es sind zwei verschiedene Komponenten!

Grüsse, Daniel

[Daniel B]

Zitat von Trouble_Maker:

Aber wie kann ich jetzt es mit dieser Komponente einstellen, dass es ein Link wie im Internet ist ?
mit dem unterstrichenen, wenn die Maus darauf ist!

Du musst es wie ein normales Label benutzen, einfach aufs Formular setzen und im OI bei Url die Url eingeben, alles andere macht die Komponente, Du musst nichts einstellen!

Und wenn Du bei Caption was eingibst, dann sieht es wie ein benannter Link aus, also sowas.

Grüsse, Daniel

[Trouble_Maker]

hmm nein ich möchte es so machen, dass so machen:

Code:

label1.Font.Style:=[];

das das so ist!
und später, wenn man mit der Maus darüberfährt soll es unterstrichen werden!
also so :

Code:

label1.Font.Style:=[fsUnderline];

aber wie geht das ? Es geht ja nich mit onmousemove!!!

???

Trouble_Maker

[Daniel B]

Delphi-Quellcode:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Style := [fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Style := [fsItalic];
end;

Grüsse, Daniel

[Trouble_Maker]

arg... das is wohl nich klar geworden!
Aber bei mir bei den Ereignissen, habe ich kein onmouseenter und onmouseleave !!!

Woran liegt das ?!?


Danke...

[Luckie]

Also, ich kenne die Komponente nicht, aber sie sollte eigentlich ein OnMouseEnter und OnMouseLeave haben. Sollte das nicht der Fall sein, warum ersetzt du dein Label nicht durch ein TStaticText und nimmst meine Lösung?

[Daniel B]

Zitat von Trouble_Maker:

arg... das is wohl nich klar geworden!
Aber bei mir bei den Ereignissen, habe ich kein onmouseenter und onmouseleave !!!

Also, die Komponente die ich gepostet hatte, hat alle Eigenschaften und Funktionen wie das normale Label auch, ist ja auch davon abgeleitet, nur das es noch zusätzlich 2, 3 Eigenschaften zusätzlich hat. Also entweder ist bei installation was schief gegangen, oder Du siehst es einfach nicht, wobei ich da einfach mal auf "geistige aussetzer ab 23Uhr".
Beweise im Anhang!
Und wenn Du es immer noch nicht glauben willst, dann nimm doch einfach Luckies Lösung und gut is.

Grüsse, Daniel