Warning: array_key_exists() [function.array-key-exists]: The second argument should be either an array or an object in /home/delphi7/public_html/479714b078a8d205ac2eb3cada3caabc/sape.php on line 395

Как сделать выравнивание по правому краю в TEdit?

type 
  TNumEdit = class(TEdit) 
    procedure CreateParams(var Params: TCreateParams); override; 
....... 


procedure TNumEdit.CreateParams(var Params: TCreateParams); 
begin 
  inherited CreateParams(Params); 
  Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; 
end; 

Автор ответа: МММ

---