memo
galera tenho um memo, um edit e um botao na minha aplicação. quando clicar no botao tenho que inserir no memo o que esta escrito no edit e o cursor ir para proxima linha, ou seja, como se pressionasse o enter. mas precisso fazer isso via comando. qual função equivale a um enter do teclado.
valeu
valeu
Speedrob
Curtidas 0
Respostas
Everton
08/02/2004
Tente o seguinte comando:
//Adiciona o conteúdo do Edit na última linha do memo
Memo.Lines.Add(Edit1.Text);
//Adiciona o conteúdo do Edit na última linha do memo
Memo.Lines.Add(Edit1.Text);
GOSTEI 0
Maxsoftware
08/02/2004
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.add(edit1.text);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [#13]then
begin
button1.onClick(sender);
end;
end;
end.
begin
memo1.Lines.add(edit1.text);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [#13]then
begin
button1.onClick(sender);
end;
end;
end.
GOSTEI 0
::d::a::m::m::i::t::
08/02/2004
procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.add(edit1.text+#1013); end;
o 13 simula o enter, o 10 eu coloquei pq em determinadas fontes soh o 13 naum funciona....
falowww
GOSTEI 0