TControl (TEdit...) ?

[poterp]

hallo,
ich habe schon viel recherchiert aber ich nicht clever geworden. uzw. ich möchte die zahlen bei TEdit
recht haben.
Ich habe erstmal folgende Methode angewendet:MyEdit.BiDiMode := bdLeftToRight; es sollte mit Delphi7 funktionieren
Passiert nicht und dann habe ich folgende quelle gefunden:

Delphi-Quellcode:

type 
  TMonEdit = class(TEdit) 
  private 
    FTextAlign: TAlignment; 
    procedure SetTextAlign(Value: TAlignment); 
  protected 
    procedure CreateParams(var Params: TCreateParams); override; 
  public 
    constructor Create(AOwner: TComponent); override; 
  published 
    property TextAlignment: TAlignment read FTextAlign write SetTextAlign; 
  end; 
implementation 

constructor TMonEdit.Create(AOwner: TComponent); 
begin 
  inherited; 
  FTextAlign := taLeftJustify; 
end; 

procedure TMonEdit.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]; 
end; 

procedure TMonEdit.SetTextAlign(Value: TAlignment); 
begin 
  if FTextAlign <>Value then 
    Begin 
     FTextAlign := Value; 
     RecreateWnd; 
   End; 
end;

aber ich weisse nicht wie ich es implementieren kann. kennt jemand ne einfache Methode?
grüß
poter

[scrat1979]

Hmmmm, also hast Du die Komponente schon in der Tool-Palette? Wenn Du diese in der Form plazierst, müsste im OI eine Eigenschaft "TextAlignment" stehen. Hier kannst Du dann das entsprechende auswählen.

Im Quellcode müsste folgendes gehen:

MonEdit.TextAlignment := taRightJustify; Habe auch mal eine eigene Edit-Komponente abgeleitet. Habe Dir mal das wichtigste rauskopiert, hoffe diese lässt sich compilieren und in die Tool-Palette integrieren... Ist Deinem Beispiel nach dem kürzen sehr ähnlich.

Delphi-Quellcode:

unit AdvEdit;

interface

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

type
  TAdvEdit = class(TEdit)
  private
    { Private-Deklarationen }
    FAlignment        : TAlignment;

    procedure SetAlignment(const Value: TAlignment);

  protected
    procedure CreateParams(var Params: TCreateParams); override;

  public
    { Public-Deklarationen }
    constructor Create(AOwner : TComponent); override;

  published
    { Published-Deklarationen }
    property Alignment          : TAlignment read FAlignment write SetAlignment;
  end;

procedure Register;

implementation

constructor TAdvEdit.Create(AOwner : TComponent);
Begin
  inherited Create(AOwner);

  Alignment := taLeftJustify;
End;

procedure TAdvEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[TAlignment] of DWORD = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
  inherited CreateParams(Params);

  with Params do
    Style := Style or Alignments[FAlignment];
end;

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

procedure Register;
begin
  RegisterComponents('Michael Kübler', [TAdvEdit]);
end;

end.

Viel Spaß,

Michael

[poterp]

danke ich probiere es
poter

[poterp]

funktioniert leider nicht

[mkinzler]

Zitat von poterp:

funktioniert leider nicht

Könntest du das "geht nicht" etwas genauer spezifizieren? Kommt ein Fehler? Fehlfunktion?

[semo]

hatte da mal testweise auch was gemacht:
http://www.hassmann-software.de/comp...c,select/id,5/