Hallo, ich möchte das in einem TEdit der Cursor rechts steht, und die eingegebenen Zeichen nach links verschieben. Mit dem Beitrag von Herrn Kosch ( rechtsbündige eingabe in TEdit - hier im Forum weiter unten ) gelingt mir das nicht. Hat jemand eine Idee ? Vielen Dank !
Announcement
Collapse
No announcement yet.
Eingabe in TEdid oder ?
Collapse
X
-
Hallo René,
probiere doch mal folgenden Code:
<pre>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TBEdit = class(TEdit)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
BEdit: TBEdit;
implementation
{$R *.DFM}
{ TBEdit }
procedure TBEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
Style := Style or ES_MULTILINE or ES_RIGHT;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BEdit := TBEdit.Create ( Self );
BEdit.Parent := Self;
BEdit.Top := 10;
BEdit.Left := 10;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BEdit.Free;
end;
end.
</pre>
Gruß Grego
-
Comment