Statusbar: "INS" und "OVR"

[Störtebeker]

Hi,

bin gerade dabei, für meinen Editor in der Statusbar den Zustand des Schreibmodus anzugeben. Kennt man ja.

Doch

Delphi-Quellcode:

procedure TForm10.SynEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = #45 then // #45 = VK_INSERT
begin
  Statusbar1.Panels[2].Text := 'OVR';
end
else
begin
  Statusbar1.Panels[2].Text := 'INS';
  end 
end;

funzt nicht. Ist es den überhaupt im KeyDown-Ereignis richtig? Oder doch im KeyPress?

MfG
Störtebeker

[Zwoetzen]

Müsste das nicht eher so aussehen?

Delphi-Quellcode:

procedure TForm10.SynEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = #45 then // #45 = VK_INSERT // Afaik könnte man auch direkt "Key = VK_INSERT" als Bedingung nehmen und somit auf die Zahl verzichten ;)
  begin
    if (Statusbar1.Panels[2].Text = 'OVR') then
      Statusbar1.Panels[2].Text := 'INS'
    else
      Statusbar1.Panels[2].Text := 'OVR';
  end;
end;

(Code nicht getestet)

Du setzt den Status ja immer auf OVR, wenn die Taste gedrückt ist, und beim nächsten Drücken einer beliebigen Taste wieder zurück auf INS.
Dabei müsste doch beim Drücken der Insert-Taste der Zustand jeweils zwischen INS und OVR geändert werden, oder nicht? ;)

[Cyberbob]

Und woher weiss dein Programm welcher Status vorhanden war, als es geöffnet wurde?

[Störtebeker]

Danke Zwoetzen. Dein Code funktioniert einwandfrei. :thumb:

[automatix]

Hallo!

Ich würde eher den wirklichen Status dafür zu Rate ziehen.

Delphi-Quellcode:

  if SynEdit1.InsertMode then

Grüße