Event bei Änderung der Cursorposition (TEdit)

[himitsu]

Tachchen,

gibt es irgendwo ein Event, welches eintritt, wenn man den Eingabe-Cursor in einem TEdit irgendwie verschiebt?
(egal ob Maus, Tastatur, ...)

OK, ich könnte einfach pollen und über 'nen Timer dieses ständig prüfen, aber anders wäre es mir schon lieber

MfG dat himilein



PS: es geht darum, in diesem noch knuffigem Tachenrechner, eine Aktion auszulösen wenn man sowas macht.
(keine Sorge ... ein paar weitere Funktionen und meine kleine StringMatheLib kommen auch irgendwann mal da rein)

schon witzig, was man alles mit D7, nur Standardkomponenten und 'nen klitzekleinem erweitertem TEdit so alles machen kann


[add]
ach ja, ich arbeite nur mit Standardkomponenten, aber ein Message in das TEdit reinzubekommen, wäre kein Problem

[sirius]

Mir ist von einem Edit keine derartige Message bekannt. Du kannst nur selber die Tasten und Mausereignisse abfangen.

[himitsu]

also OnKeyPress liefert schonmal keine Tasten, aber mir wfällt grad auf ... ich hab die ganze Zeit OnKeyDown vergessen ... bin gleich wieder da ... nur mal schnell testen

[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...]

[sirius]

Das wird dann wohl klappen:

Zitat von Hilfe (gekürzt):

Entspricht die Taste keinem ASCII-Zeichenwert, wird kein OnKeyPress-Ereignis generiert. [...] Verwenden Sie die Ereignisbehandlungsroutine für OnKeyDown oder OnKeyUp, um auf Nicht-ASCII-Tasten oder -Tastenkombinationen zu antworten.

3 ende rohr

[himitsu]

joar OnKeyUp war die Lösung ... irgendwie hatte ich da wohl das berühmte Brett vom Köpfchen