unit uelo;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TOKEloDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    e_referencia: TEdit;
    e_texto: TEdit;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    r_nesteSite: TRadioButton;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure r_nesteSiteClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ok: boolean;
  end;

var
  OKEloDlg: TOKEloDlg;

implementation

{$R *.dfm}

procedure TOKEloDlg.OKBtnClick(Sender: TObject);
begin
   ok := true;
end;

procedure TOKEloDlg.CancelBtnClick(Sender: TObject);
begin
   ok := false;
end;

procedure TOKEloDlg.RadioButton1Click(Sender: TObject);
begin
    e_referencia.Text := 'http://www.';
end;

procedure TOKEloDlg.RadioButton2Click(Sender: TObject);
begin
    e_referencia.Text := '#';
end;

procedure TOKEloDlg.RadioButton3Click(Sender: TObject);
begin
    e_referencia.Text := 'mailto:fulano@nce.ufrj.br';
end;

procedure TOKEloDlg.r_nesteSiteClick(Sender: TObject);
begin
    e_referencia.Text := 'paginalocal.htm';
end;

procedure TOKEloDlg.FormActivate(Sender: TObject);
begin
    r_nesteSite.SetFocus;
    r_nesteSiteClick(sender);
end;

end.
