new to lazarus: how to use openurl

[smitsg]

Hello!

I'm new to programming/lazarus.
I would like to build an exe which contains some links to url's. Can anyone provide me some sourcecode for a form with two links and a openfolder-button? When I know the syntax I can probably go on from that basic source.....
Hope I'm not offending anyone with this basic question, I downloaded lazarus yesterday for the first time....

Regards,
Giel

[Blaazen]

Good reference is Lazarus itself. Go to main menu: Help -> About Lazarus -> tab About . There are two links. They are normal labels (TLabel) with OnMouseEnter, OnMouseLeave and OnMouseDown events and OpenURL function.
See the code in ../lazarus/ide/aboutfrm.pas :

Code: [Select]

procedure TAboutForm.URLLabelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  OpenURL(TLabel(Sender).Caption);
end;

procedure TAboutForm.URLLabelMouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Style := [];
  TLabel(Sender).Font.Color := clBlue;
  TLabel(Sender).Cursor := crDefault;
end;

procedure TAboutForm. URLLabelMouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Style := [fsUnderLine];
  TLabel(Sender).Font.Color := clRed;
  TLabel(Sender).Cursor := crHandPoint;
end;
Open folder is also easy. Put TOpenDialog and TButton on your form. Assign OnClick event of Button and code:

Code: [Select]

if OpenDialog1.Execute then
begin
  //here you can do something with OpenDialog1.FileName
end;


[smitsg]

Thanks for your quick reply!
I'm still confused though....

This is what i have done:

• start new project
• added label1 and label2 to the form

Then I changed the source code according to your reccomendation:

unit formulier1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


 procedure TForm1.URLLabelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  OpenURL(TLabel(Sender).Caption);
end;

procedure TForm1.URLLabelMouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Style := [];
  TLabel(Sender).Font.Color := clBlue;
  TLabel(Sender).Cursor := crDefault;
end;

procedure TForm1. URLLabelMouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Style := [fsUnderLine];
  TLabel(Sender).Font.Color := clRed;
  TLabel(Sender).Cursor := crHandPoint;
end;
end.


When I try to run it I get the messages:

method identifier expected (several times)
Identifier not found "openurl"

I think I miss some lines......

[smitsg]

I realised that I didn't put the actual link in the code: where do I put the link (e.g. http://www.google.com)??? Is this a variable that I have to put somewhere.....

Thanks in advance.... And sorry for this basic questions.....

[Peter_Vadasz]

If you want to use the openurl procedure, you must add the lclintf unit in the uses section. I made a little example for you take a look at the following link: http://dl.dropbox.com/u/2766266/link.zip

[smitsg]

Thanks!!!!!
I'll check this further, but this looks exactly what I needed!
Regards!!!