Hallo nochmal...
Ich bekomms mit dem OnKeyDown nicht hin was mach ich falsch?
Delphi-Quellcode:
procedure TForm1.CodeChange(Sender: TObject);
var zeile:string;
begin
zeile:='Zeile '+IntToStr(Code.CaretY); //liegt es vielleicht hier ran?
Code.SetFocus;
Code.ActiveLineColor:=$00E5E5E5;
Code.OnKeyDown:=zeile; //ich kann hier ja nicht das Panel noch mal Aufrufen irgend eine andere lösung?
Code.OnKeyUp:=zeile; //ich kann hier ja nicht das Panel noch mal Aufrufen irgend eine andere lösung?
Statusbar1.Panels[1].Text:=zeile;
Code.SetFocus;
end;