Event bei Änderung der Cursorposition (TEdit)

[mleyen]

Am besten du leitest von TEdit ab, erstellst ein eigenes Event und prüfst das OnKeyUp - und OnMouseUp-Event.
Oder kann man den noch irgendwie anders ändern?

Auf-die-Sprünge-hilf-code:

Delphi-Quellcode:

type
  TOnEditCursPosChanged = procedure of object;
var
  OnEditCursPosChanged: TOnEditCursPosChanged;
  LastCursPos: Integer;

//....

procedure TBluppForm.CheckIfCursPosChanged;
begin
  if LastCursPos <> edt1.SelStart then
  begin
    if Assigned(OnEditCursPosChanged) then
      OnEditCursPosChanged;
    LastCursPos := edt1.SelStart;
  end;
end;

procedure TBluppForm.edt1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  { **Vieeel Code** }

  CheckIfCursPosChanged;
end;

procedure TBluppForm.edt1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  { **Vieeel Code** }

  CheckIfCursPosChanged;
end;

Aber das dürfte so ganz performant sein.
(Da braucht man gar nicht auf die einzelnen Tasten prüfen, ist imho unsinn)

Aber auf keinen fall pollen. (also himi...^^)

[so, genug rumeditiert...]