(Resolvido) Função do Campo Edit e Botão Conectar

[Rodion]

Estou tentando fazer uma função que nele só possa digitar números e pontos (   . e :   ), e que no meu botão "Conectar" pegasse as informações digitadas no Edit e acrescentasse e entrasse como um enter ex: "colocaram 12.0.0:01 no edit, e quando clicar no conectar ele vai levar pra um endereço 'teste://12.0.0:01' como se estivesse em um próprio navegador fazendo conectar no endereço.

 

OBS: Utilizo Delphi 7.

[Jhonas]

exemplo:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ender : string;
begin
    ender := 'teste://'+trim(edit1.Text);

    showmessage('teste://'+trim(edit1.Text));

    // aqui voce pode jogar o resultado no webbrowser para abrir a pagina
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in['0'..'9',Chr(8),'.',':']) then Key:= #0;
end;

end.

 

abraço