Alignement de TEDIT [Résolu]

Adminsma 8 Messages postés samedi 2 décembre 2006Date d'inscription 28 juin 2011 Dernière intervention - 11 déc. 2006 à 15:01 - Dernière réponse : cs_dugueclin 66 Messages postés jeudi 2 septembre 2004Date d'inscription 10 juillet 2012 Dernière intervention
- 20 déc. 2006 à 16:34
salut,je voudrais savoir comment on peut changer l'alignement de TEDIT
de left/right vers right/left.
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
mtaallah 30 Messages postés lundi 10 décembre 2001Date d'inscription 13 décembre 2006 Dernière intervention - 13 déc. 2006 à 01:12
3
Merci
Salut...
  Où est la réponse qui a été acceptée...
  Essayez d'utiliser un Memo avec une seule ligne...
  Ma propriété Alignment est déjà activée..
Merci

Merci mtaallah 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 87 internautes ce mois-ci

Commenter la réponse de mtaallah
Meilleure réponse
cs_dugueclin 66 Messages postés jeudi 2 septembre 2004Date d'inscription 10 juillet 2012 Dernière intervention - 15 déc. 2006 à 16:19
3
Merci
bonjour à tous,
je viens de lire vos post.
il faut créer le composant dans un unit,
type
  TCDEdit = class (TEdit)
  private
    { Déclarations privées }
    FTextAlign: TAlignment;
    FOnlyNumbers: boolean;
    procedure SetOnlyNumbers(Value: boolean);
    procedure SetTextAlign(Value: TAlignment);
  protected
    { Déclarations protégées }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
  published
    { Déclarations publiées }
    property OnlyNumbers: boolean read FOnlyNumbers write SetOnlyNumbers;
    property TextAlignment: TAlignment read FTextAlign write SetTextAlign;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Exemples', [TCDEdit]);
end;

{ TCDEdit }

constructor TCDEdit.Create(AOwner: TComponent);
begin
  inherited;
  FTextAlign : = taLeftJustify;
  FOnlyNumbers := FALSE;
end ;

procedure TCDEdit.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 Alignments[TextAlignment];
  if OnlyNumbers then
    Params.Style : = Params.Style or ES_NUMBER
end;

procedure TCDEdit.SetOnlyNumbers(Value: boolean);
begin
  if FOnlyNumbers <> Value thenbegin
    FOnlyNumbers := Value;
    RecreateWnd;
  end ;
end;

procedure TCDEdit.SetTextAlign(Value: TAlignment);
begin
  if FTextAlign <> Value thenbegin
    FTextAlign : = Value;
    RecreateWnd;
  end;
end;

end.

(ce code n'est pas de moi).
Salutations à tous et bon codding
Dugueclin.

Merci cs_dugueclin 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 87 internautes ce mois-ci

Commenter la réponse de cs_dugueclin
Adminsma 8 Messages postés samedi 2 décembre 2006Date d'inscription 28 juin 2011 Dernière intervention - 11 déc. 2006 à 15:06
0
Merci
salut,j'ai devloppé des etats de sorties à l'aide de RAVEREPORT (relation maitre-detail) mais quand j'ai exporté l'etat  vers format EXEL il etait mal organisé .comment je pourai regler ce probleme?
Commenter la réponse de Adminsma
sylvunix 103 Messages postés mardi 11 avril 2006Date d'inscription 4 mars 2009 Dernière intervention - 11 déc. 2006 à 15:34
0
Merci
Question / Répopnse :

Que faire lorsqu'on se pose un question ?

.../...

Non, la réponse n'est pas 'on la poste sur un forum' mais 'on réfléchit et on cherche un peu avant de poster sa question'

Halte à la pollution des forums ...
Commenter la réponse de sylvunix
Adminsma 8 Messages postés samedi 2 décembre 2006Date d'inscription 28 juin 2011 Dernière intervention - 20 déc. 2006 à 08:22
0
Merci
Salut dugueclin,
Je fait essayer de créer un autre composant héritant du composant TEdit, en aidant de votre réponse.
Merci.
Commenter la réponse de Adminsma
cs_dugueclin 66 Messages postés jeudi 2 septembre 2004Date d'inscription 10 juillet 2012 Dernière intervention - 20 déc. 2006 à 16:34
0
Merci
Bonjour Adminsma,
Voici le code pour créer le composant dans le fichier .pfm:

 object Edit1: TAlignEdit
    Left = 64
    Top = 20
    Width = 180
    Height = 19
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    Text = ''
    Alignment = taCenter
  end
Salutations et bon codding!!!
Dugueclin.
Commenter la réponse de cs_dugueclin

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.