Thema: Delphi Text in TEdit ausrichten

Einzelnen Beitrag anzeigen

Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.858 Beiträge
 
Delphi 11 Alexandria
 
#12

Re: Text in TEdit ausrichten

  Alt 31. Mär 2009, 22:23
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
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat