Frage zu VK_Insert und TStatusBar

[Mackhack]

Hi,

weis jemand warum das hier nicht funktioniert?

Delphi-Quellcode:

procedure TfoFrmMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if ( GetKeyState(VK_INSERT) = 0 ) then
    SBarInfo.Panels[1].Text := 'Insert'
  else
    SBarInfo.Panels[1].Text := 'Override';
end;

[Prototypjack]

Morgen!

Ich gebe keine Garantie das folgendes funktioniert(dafür ist es zu früh :

Delphi-Quellcode:

If Key = VK_INSERT then
begin
  SBarInfo.Panels[1].Text := 'Insert';
end
else
begin
  SBarInfo.Panels[1].Text := 'Override';
end;

Das ganze gehört aber dann in KeyDown/KeyUp da er den Char von KeyPress nicht mit VK_Insert vergleichen kann.
Auch Keypreview auf True stellen sonst reagiert das ganze nicht wenn nicht die Form selbst den Fokus hat.

Gruß,
Max