Fórum memo #212395
08/02/2004
0
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
Curtir tópico
+ 0
Responder
Posts
08/02/2004
Everton
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);
Responder
Gostei + 0
08/02/2004
Maxsoftware
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.
Responder
Gostei + 0
08/02/2004
::d::a::m::m::i::t::
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)