Efectivamente, esa era la solución. Simplemente añadiendo Key := #0
Código:
procedure TFormAnaglifo.EditColorRojoKeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) or ( Key = char(13) ) then { BackSpace Key }
begin
if (key = char(13)) and (EditColorRojo.Text <> '') then
begin
ScrollBarRojo.Position := StrToInt(EditColorrojo.Text);
EditColorRojo.Visible := False;
Key := #0;
end;
end else
Key := #0;
end;
Gracias.
Saludos...
Miguel Angel
http://imagen3d.site88.net/