Url in Form durch Klick auf Button aufrufen

[Noris]

Wie kann ich es programmieren, das wenn ich eine Url in z.B. die Form1 reinschreibe, diese auf Klick (also die url) aufgerufen wird?
Also z.b. dann im inernet-Explorer oder so


Wäre auch super, wenn mir jemand sagen könnte wie ich ganz normale texte in eine Form reinschrieben kann,
da die Caption (Anfänger-Lösung) nur eine bestimmte max. Anzahl an Buchstaben zulässt.




__________________________________________________ ________


Mfg NoRiS


pls visit Core and Gaming Board

[alleinherrscher]

Hi!

Zu 1:

Delphi-Quellcode:

uses ShellApi;

Delphi-Quellcode:

ShellExecute(0,pchar('www.google.de'),pchar(''),pchar(''),SW_SHOW);

Zu 2:
Wie willst du denn Text auf die Form schreiben? Ein TLabel (s. Komponentenliste) wäre z.B. eine Möglichkeit

[Noris]

zu 2. Naja z.b. eine Buchseite.

[Lumpiluk]

Die Lösung mit ShellExecute ist besonders deswegen gut, weil nicht standartmäßig der IE aufgerufen wird, sondern dein 'Lieblingsbrowser'!

Bevor es zu Missverständnissen kommt: Bei einem Label musst du bei längeren Texten unbedingt WordWrap auf True schalten, damit es eine Art Zeilenumbruch gibt!

Zusätzlich zu Labels gibt es noch die Möglichkeiten TMemo und TRichEdit. Mit TRichEdit kenne ich mich leider noch nicht aus, aber ich weiß, dass man damit den Text auch formatieren kann (fett, kursiv, unterstrichen, unterschiedliche Schrifttypen...).

[Noris]

Danke das mit Memo klappt super aber:
Bei mir funktioniert die Funktion ShellExecute nicht und bei der Shellapi weiß er überhaupt nicht was das sein soll!
Bei ShellExecute sagt er mir immer "undeclared identifier" :(

Mit vielen Grüßen

Noris

[sx2008]

Ungetestet. Auf jeden Fall sollte man eine Funktion oder Prozedur verwenden
und nicht ShellExecute im Programm verstreuen.

Delphi-Quellcode:

function StartsWith(const s, pattern:string):boolean;
begin
  Result := (copy(s, 1, Length(pattern)) = pattern);
end;

function OpenUrlInStandardBrowser(URL:string):integer;
begin
  Assert(URL <> '');
  if not StartsWith(URL,'http://') and not StartsWith(URL,'https://') 
     and not StartsWith(URL,'ftp://') then
     URL := 'http://'+URL;
  result := ShellExecute(0,'open',pchar(URL),nil,SW_SHOW);
end;

....
OpenUrlInStandardBrowser('www.delphipraxis.net');

[Matze]

Zitat:

Zitat von Noris

Bei ShellExecute sagt er mir immer "undeclared identifier" :(

Lies doch bitte, was hier geschrieben wird und kopiere nicht alles einfach blind in die IDE. Übrigens gibt es auch eine Dlephi-Hilfe: ShellExecute.
Also: Lesen und verstehen!

Zitat:

Zitat von alleinherrscher

Zu 1:

Delphi-Quellcode:

uses ShellApi;

[...]