Alerta num memo
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
Curtidas 0
Respostas
Wagnerps
26/03/2003
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)
GOSTEI 0
Wagnerps
26/03/2003
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
GOSTEI 0