GetCursorPos in einem Edit

[BenjaminHelbig]

Hi DP'ler,

habe folgendes Problem. Ich möchte in einem TEdit in welches ich automatisch den aktuellen Zeitstempel reinschreiben lasse, verhindern, dass dieser wieder rausgenommen wird. Hinter den Zeitstempel kann der Benutzer noch normalen Text eintragen. Ich will den Zeitstempel aber auch nicht später setzen lassen, da ich verhindern möchte, dass der Benutzer meint er müsse ihn manuell eintragen.
Ich habe jetzt in das On KeyDown Ereignis von dem Edit Feld folgendes eingetragen

Delphi-Quellcode:

if (Key = VK_Delete) or (Key = VK_Back) then
 begin
 end;

So kann ich ja auf Delete und Backspace reagieren. Die länge von einem Zeitstempel beträgt auch immer Datum (10) + Uhrzeit (8) + ein Leerzeichen. Also eine Gesamtlänge von 19. Die ersten 19 Zeichen dürfen also nicht gelöscht werden. Um dieses zu verhindern muss ich aber die Cursorposition in dem Editfeld bekommen. Hat jemand von Euch eine Idee?


Grüßle

Ben

[Benedikt]

Hi,

die Eigenschaft SelStart sollte dir die Cursorposition in deinem Edit zurückliefern.

[Christian Seehase]

Moin Benjamin,

Du könntest auch ein RichEdit dafür missbrauchen.
Hier kannst Du mit dem Attribut Protected (siehe: SelAttributes) einen Text vor Veränderung schützen.

[Jens Schumann]

Hallo,
versuch es doch mal so:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FTimeStamp : String;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTimeStamp:=DateToStr(Now)+' '+TimeToStr(Now)+': ';
  Edit1.Text:=FTimeStamp;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.SelStart:=Length(FTimeStamp);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  If (Length(Edit1.Text)<Length(FTimeStamp)) or
     (Edit1.SelStart<Length(FTimeStamp)) then
    begin
    Edit1.Text:=FTimeStamp;
    Edit1.SelStart:=Length(FTimeStamp);
    end;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  If Edit1.SelStart<Length(FTimeStamp) then
    Edit1.SelStart:=Length(FTimeStamp);
end;

end.