Text in TEdit ausrichten

[Chemiker]

Hallo Ganymed,

da Du D2007 auch besitzt, würde sich für die Lösung Deines Problems auch einen Class helper eignen.

z.B.:

Delphi-Quellcode:

unit uEditClassHelper;

interface

uses
  Classes, StdCtrls, Windows;

type
  EditClassHelper = Class helper for TEdit
  public
    procedure Rechtsbündig;
    procedure Linksbündig;
  End;

implementation

procedure EditClassHelper.Rechtsbündig;
begin
  SetWindowLong(self.Handle, GWL_ExStyle,
                GetWindowLong(self.Handle, GWL_ExStyle) or WS_EX_Right);
end;

procedure EditClassHelper.Linksbündig;
begin
  SetWindowLong(self.Handle, GWL_ExStyle,
                GetWindowLong(self.Handle, GWL_ExStyle) or WS_EX_LEFT);
end;

end.

Der Aufruf:

Delphi-Quellcode:

Edit1.rechtsbündig;
  Edit1.Text:= 'test';

Bis bald Chemiker