Fórum Problema com SendMessage #256650
29/10/2004
0
Olá a todos!
Estou tentando restringir a area de digitação em um Edit para isso estou usando o seguinte código
var
Loc: TRect;
begin
SetRect(0, 0, Edit1.ClientWidth - 20 , Edit1.ClientHeight);
SendMessage(Edit1.Handle, EM_SETRECTNP, 0, LongInt(@Loc));
end;
Ao verificar o novo valor de ClientWidth ele continua o mesmo sem alteração.
Atenciosamente,
Ricardo
Estou tentando restringir a area de digitação em um Edit para isso estou usando o seguinte código
var
Loc: TRect;
begin
SetRect(0, 0, Edit1.ClientWidth - 20 , Edit1.ClientHeight);
SendMessage(Edit1.Handle, EM_SETRECTNP, 0, LongInt(@Loc));
end;
Ao verificar o novo valor de ClientWidth ele continua o mesmo sem alteração.
Atenciosamente,
Ricardo
Rcfreitas
Curtir tópico
+ 0
Responder
Posts
30/10/2004
Ipc$
Olá colega, bom deve ser pq EM_SetRect somente é processada por edits multilines. Se vc testar com um TMemo por ex, ela deverá funcionar.
Responder
Gostei + 0
30/10/2004
Adilsond
Utilize a propriedade MaxLength.
Edit1.MaxLength := Máxima quantidade de caracteres;
Edit1.MaxLength := Máxima quantidade de caracteres;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)