Alerta num memo
26/03/2003
0
Estou usando um componente memo. Gostaria de saber como posso alertar um usuário a não digitar mais do que 170 caracteres. Se ele tentar, algo como... ShowMessage(´Digite no máximo 170 caracteres´)
deve aparecer. Se alguém puder me ajudar agradeço!
:)
deve aparecer. Se alguém puder me ajudar agradeço!
:)
Ginosam
Curtir tópico
+ 0
Responder
Posts
26/03/2003
Wagnerps
cara,
Faz Assim,
No evento OnChange do Memo
procedure Tform1.MemoChange(Sender: TObject);
begin
case Length(Trim(Memo1.Lines.Text)) of
12 : ShowMessage(´Digite no maximo 10 Caracteres !´);
end;
end;
Falou.
Wagnerps 8)
Faz Assim,
No evento OnChange do Memo
procedure Tform1.MemoChange(Sender: TObject);
begin
case Length(Trim(Memo1.Lines.Text)) of
12 : ShowMessage(´Digite no maximo 10 Caracteres !´);
end;
end;
Falou.
Wagnerps 8)
Responder
26/03/2003
Wagnerps
cara,
Faz Assim,
No evento OnChange do Memo
procedure Tform1.MemoChange(Sender: TObject);
begin
case Length(Trim(Memo1.Lines.Text)) of
170 : ShowMessage(´Digite no maximo 170 Caracteres !´);
end;
end;
Falou.
Wagnerps
Faz Assim,
No evento OnChange do Memo
procedure Tform1.MemoChange(Sender: TObject);
begin
case Length(Trim(Memo1.Lines.Text)) of
170 : ShowMessage(´Digite no maximo 170 Caracteres !´);
end;
end;
Falou.
Wagnerps
Responder
Clique aqui para fazer login e interagir na Comunidade :)