Entwickler-Ecke
Internet / Netzwerk - Internet Link ??
SnAkE2004 - Do 02.12.04 13:35
Titel: Internet Link ??
hi leute,
ich habe da mal eine frage wie kann ich in einen label einen internet Link (
http://www.diedomain.de) programmieren ??
MFG
Snake2004
Crowbar - Do 02.12.04 13:50
Hi,
ich habe es hiermit "gelöst":
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| ...
uses shellapi;
...
Procedure TMainForm.URLLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
URLLabel.Font.Color:=clred;
URLLabel.Font.Style:=[fsUnderline];
end;
Procedure TMainForm.URLLabelClick(Sender: TObject);
Var
url : String;
urladr : Array[0..79] of Char;
begin
url:='http://'+URLLabel.Caption;
StrPCopy(urladr,url);
ShellExecute(0,nil,urladr,nil,nil,SW_SHOWNORMAL);
end;
... |
Es wird die OnMouseMove und die OnClick Methode der Labelkomponente verwendet.
Natürlich gibt es auch schon vorgefertigte Komponenten, wie z.B. die Jedi-Komponente (
http://homepages.borland.com/jedi/jvcl).
Cu
Crowbar
.Chef - Do 02.12.04 14:15
Zusätzlich kannst du den Cursor über dem Label noch auf crHandPoint setzen.
SnAkE2004 - Do 02.12.04 15:58
@ Crowbar irgend wie bekomme ich das nicht ihn (ich bin in sachen Delphi noch ein voller noob )
kann du das auch für dumme leute (wie mich) erklären ??
MFG
Snake2004
Crowbar - Do 02.12.04 17:55
Hi,
als erstes fügst Du in Deinen Uses-Abschnitt "shellapi" hinzu.
Beispiel:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI;
... |
Danach klickst Du das Label (Dein "Internet-Link") an und wechselst zum Objektinspektor. Im Objektinspektor wählst Du dann den Tab "Ereignisse" aus. Dort klickst Du auf "OnClick" und fügst den obigen Code ein (siehe "Procedure TMainForm.URLLabelClick(Sender: TObject);"). Das gleiche machst Du dann mit "OnMouseMove" (siehe "Procedure TMainForm.URLLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);").
So, das war es eigentlich schon!
Cu Crowbar
P.S. Mein Label habe ich als "URLLabel" bezeichnet (Standard wäre z.B. "label1").
mick - Mo 20.12.04 21:47
wie kann ich das
URLLabel.Font.Style:=[fsUnderline];
wieder rueckgaengig machen? muss den wert doch irgendwie false setzten - nur wie?
ciao,
mijozi.
raziel - Mo 20.12.04 21:53
Delphi-Quelltext
1:
| URLLabel.Font.Style:=[]; |
Karlson - Mo 20.12.04 21:54
Hi!
so:
Delphi-Quelltext
1:
| urllabel.font.style := [] |
Moderiert von 
Karlson: Verdammt
mick - Mo 20.12.04 23:25
ui, da war wohl einer ein klein wenig schneller als der andere... ;-)
hm, das funzt? muss ich mal testen. denn was mich wundert: unter Font.Style gibt es mehrere weitere eintraege, nicht nur fsUnderline, sondern auch fsbold, fsitalic usw.
was, wenn mehrere dieser werte auf true stehen, ich aber nur einen wieder auf false haben moechte?
ciao,
mijozi.
AXMD - Mo 20.12.04 23:32
Hinweis am Rande: in Fontstyle is nix true oder false; aber wenn dus so siehst, dass true bedeutet, dass ein Attribut in der Menge Font.Stlye enthalten ist, stimmts natürlich ;)
Du kannst also zB
Delphi-Quelltext
1:
| X.Font.Style := [fsBold, fsItalic]; |
Dann wären bold und italic true, und underline strikeout false ;)
AXMD
Karlson - Di 21.12.04 00:52
Da muss ich jetzt spontan sagen, dass das im OI etwas verwirrend ist. Spontan dachte ich aufgrund der Verknüpfungen im Oi das dass doch auch mit font.style.fsunderline := false gehen müsste. Habs dann glücklicherweise nochmal ausprobiert. Aber AXMD war ja eh schneller ;)
mick - Di 21.12.04 09:01
jetzt hab ich's geschnaggelt - die firma dankt!
ciao,
mijozi.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!