link

hmm kan ikke fåstå hvad du vil

Nedenstående er lavet med 2 labels, men du kan lave det om til lige hvad du har lyst til :)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    link1: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
  link1 := True;
  ShellExecute(Handle,\'open\',PChar(\'http://www.eksperten.dk\'),pchar(\'\'),pchar(\'\'),SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  link1 := False;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
  if link1 then
    ShellExecute(Handle,\'open\',PChar(\'http://www.eksperten.dk/list.phtml\'),pchar(\'\'),pchar(\'\'),SW_SHOWNORMAL)
  else
    Showmessage(\'Du skal klikke på link1 først!\');
end;

end.


Snowball

kan ikke få det til at virke

Så\'n en kommentar kan vi jo ikke bruge til noget !!! ;)

Kan du kompilere det uden fejl !? Har du husket at tilføje ShellAPI under Uses !?

Snowball