EDİT

[janwer07]

ARKADASLAR edit ile hesap makinesinde işlemleri sağa dayalı olarak nasıl yazdırabilirim?
ayrıntılı olarak yazarsanız sevinirim şimdiden teşekürler...

[ibrahimcoban]

Bu işini görür sanırım.

Kod: Tümünü seç

unit AlignEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type

 TAlignEdit = class(TCustomEdit)
  private
    { Private declarations }
   FAlignment: TAlignment;
   procedure SetAlignment(Value: TAlignment);
  public
   constructor Create(AOwner: TComponent); override;
   procedure CreateParams(var Params: TCreateParams); override;
  published
   property Alignment: TAlignment read FAlignment write SetAlignment;
   property AutoSelect;
   property AutoSize;
   property BorderStyle;
   property Color;
   property Ctl3D;
   property Enabled;
   property Font;
   property ParentColor;
   property ParentCtl3D;
   property ParentFont;
   property ParentShowHint;
   property ReadOnly;
   property ShowHint;
   property TabOrder;
   property TabStop;
   property Visible;
  end;

procedure Register;

implementation

constructor TAlignEdit.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 FAlignment := taCenter;
end;

procedure TAlignEdit.CreateParams(var Params: TCreateParams);
const
 Alignments: array[TAlignment] of Word = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
 inherited CreateParams(Params);
 Params.Style := Params.Style or ES_MULTILINE or Alignments[FAlignment];
end;


procedure TAlignEdit.SetAlignment(Value: TAlignment);
begin
 if FAlignment <> Value then
  begin
   FAlignment := Value;
   RecreateWnd;
  end;
end;

end.