Arsip: Membuat EditBox yang RataKanan

unit EditBoxRataKanan;
interface
uses Messages, Windows, SysUtils, Classes,
Controls, Forms, Menus, Graphics;
type
TRataKananEdit = class( TCustomEdit)
private
FAlignment : TAlignment;
protected
procedure CreateParams(var Params : TCreateParams); override;
published
property Alignment : TAlignment read FAlignment
write FAlignment;
end;
procedure Register;
implementation
{ TRataKananEdit }
procedure TRataKananEdit.CreateParams(var Params: TCreateParams);
const
Alignments : array[TAlignment] of Integer =
(ES_LEFT, ES_RIGHT, ES_CENTER);
begin
inherited CreateParams(Params);
with Params do
Style := Style AND (NOT 0) OR (ES_MULTILINE)
OR (Alignments[FAlignment]);
end;
procedure Register;
begin
RegisterComponents('DelphiID', [ TRataKananEdit]);
end;
end.