Servus
Also ich mach es wie aus den Beispielen von SynEdit:
Eine TActionList auf die Form droppen, dann ein neues TAction Object erzeugen (Doppelklick auf die ActionList, dann Rechtsklick und neue Aktion wählen). Dann die Aktion passend benennen, jetzt die Aktion anklicken im
OI bei den Events des Objekts von TAction das Event OnUpdate auswählen, doppelklick darauf und dann folgenden Code rein:
Delphi-Quellcode:
var
Point: TPoint;
begin
Point := Editor.CaretXY;
StatusBar.Panels[0].Text := Format(' %6d:%3d ', [Point.Y, Point.X]);
end;
Wobei du das Feld bzw. noch den Namen an deine Statusbar anpassen musst
Jetzt finalerweise noch die Statusbar anklicken, dann wieder im
OI auf der Eventsleiste gehen und oben beim Feld Action unsere gerade frisch definierte Action auswählen, das wars
jetzt dürfte sich alles von alleine Ändern, egal ob klicken, tasten oder sonst was
mfg phlux