Einzelnen Beitrag anzeigen

Zwoetzen

Registriert seit: 19. Sep 2007
Ort: Ilmenau
93 Beiträge
 
Delphi 2009 Professional
 
#2

Re: Statusbar: "INS" und "OVR"

  Alt 18. Nov 2008, 21:44
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?
  Mit Zitat antworten Zitat