Problema com SendMessage
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
Curtidas 0
Respostas
Ipc$
29/10/2004
Olá colega, bom deve ser pq EM_SetRect somente é processada por edits multilines. Se vc testar com um TMemo por ex, ela deverá funcionar.
GOSTEI 0
Adilsond
29/10/2004
Utilize a propriedade MaxLength.
Edit1.MaxLength := Máxima quantidade de caracteres;
Edit1.MaxLength := Máxima quantidade de caracteres;
GOSTEI 0