Créer un composant TEdit avec une propriété alignement

unit AlignEdit;

interface

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

type

TAlign = (eaLeft, eaCenter, eaRight);

TAlignEdit = class(TEdit)
private
{ Private-Deklarationen }
FAlign: TAlign;
procedure SetAlign(Const Value : TAlign);
protected
{ Protected-Deklarationen }
procedure CreateParams( var Params: TCreateParams); override;
public
{ Public-Deklarationen }
Constructor Create(AOwner : TComponent); override;
published
{ Published-Deklarationen }
property Alignment: TAlign read FAlign write SetAlign default eaLeft;
end;

procedure Register;

implementation

const ructor TAlignEdit.Create(Aowner : TComponent);
begin
inherited Create(AOwner);
FAlign := eaLeft;
end;

procedure TAlignEdit.SetAlign( const Value : TAlign);
begin
if FAlign <> Value then
begin
FAlign := Value;
RecreateWnd;
end;
end;

procedure TAlignEdit.CreateParams( var Params: TCreateParams);
begin
inherited;
case FAlign of
eaLeft : Params.Style := Params.Style or ES_LEFT;
eaCenter : Params.Style := Params.Style or ES_CENTER;
eaRight : Params.Style := Params.Style or ES_RIGHT;
end;
end;

procedure Register;
begin
RegisterComponents('SwissDelphiCenter', [TAlignEdit]);
end;

end.






Commentaire des internautes
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
avatar
le //
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/03/2004
VisualisationVu 1352 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
connecté le //
0 ans -
articles dans la section
Contacter l'auteur
Articles similaires