Mega Code Archive

 

Categories / Delphi / VCL

 

[] Edite sağa dayalı özelliği verme

TEdit1 = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; end; procedure TEdit1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; end;