Duvida basica 2

[Antonio Maucyr Pasqualli F]

Prezados

Estou com duas duvidas básicas sobre Delphi:

1 – Tenho um Edit e um Memo, como faço para que tudo que eu digitar no Edit seja “clonado” no Memo?

Isso devera ocorrer no momento que eu estiver digitando, exemplo : eu vou digitar “ola mundo” no Edit, digitei ola mun.... e no Memo já esta com ola mun...

2 – Tenho um combo box e um Button, quando eu selecionar um nome no combo box e clicar no Button ele devera carregar uma pagina web referente ao nome selecionado

Tem como fazer isso?

Se alguém conseguir me ajudar OBRIGADO!

[Jhonas]

1 – Tenho um Edit e um Memo, como faço para que tudo que eu digitar no Edit seja “clonado” no Memo?

Isso devera ocorrer no momento que eu estiver digitando, exemplo : eu vou digitar “ola mundo” no Edit, digitei ola mun.... e no Memo já esta com ola mun...

2 – Tenho um combo box e um Button, quando eu selecionar um nome no combo box e clicar no Button ele devera carregar uma pagina web referente ao nome selecionado

Tem como fazer isso?

implementation

uses shellapi;

{$R *.DFM}


// 1 - ao digitar no edit o memo recebera os caracteres digitados

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Memo1.Lines.Text := Edit1.text;
end;


// 2 - no combobox coloque os endereços ( URL ) e ao clicar num deles a pagina será aberta atraves do seu browser

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(ComboBox1.Items.Strings[ComboBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL);
  inherited;
end;

OBS: Sugiro que voce leia mais sobre o delphi ... procure no forum ou na Net, tem muitas apostilas que o ajudarão.

abraço

[Antonio Maucyr Pasqualli F]

Ok farei isso sei disso rsrssr..........., mas, poderia me ajudar com mais uma duvida?

e se eu tiver varios edits e um memo?

1 – Tenho um Edit e um Memo, como faço para que tudo que eu digitar no Edit seja “clonado” no Memo?

Isso devera ocorrer no momento que eu estiver digitando, exemplo : eu vou digitar “ola mundo” no Edit, digitei ola mun.... e no Memo já esta com ola mun...

2 – Tenho um combo box e um Button, quando eu selecionar um nome no combo box e clicar no Button ele devera carregar uma pagina web referente ao nome selecionado

Tem como fazer isso?

implementation

uses shellapi;

{$R *.DFM}


// 1 - ao digitar no edit o memo recebera os caracteres digitados

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Memo1.Lines.Text := Edit1.text;
end;


// 2 - no combobox coloque os endereços ( URL ) e ao clicar num deles a pagina será aberta atraves do seu browser

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(ComboBox1.Items.Strings[ComboBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL);
  inherited;
end;

OBS: Sugiro que voce leia mais sobre o delphi ... procure no forum ou na Net, tem muitas apostilas que o ajudarão.

abraço

[Jhonas]

Ok farei isso sei disso rsrssr..........., mas, poderia me ajudar com mais uma duvida?

e se eu tiver varios edits e um memo?

O codigo deve ser modificado desta maneira

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
      Memo1.Lines.Append(Edit1.text);
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
      Memo1.Lines.Append(Edit2.text);
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
      Memo1.Lines.Append(Edit3.text);
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
      Memo1.Lines.Append(Edit4.text);
end;

OBS: Depois de digitar no edit , ao clicar no enter o conteudo do edit passara para o memo

abraço