Problem mit Prozedur bei shortcut

[Grolle]

Hallo,
ich habe eine Prozedur mit der ich einige Felder aus- und einblende:

Delphi-Quellcode:

procedure TForm1.switchview;
begin
  if not Label1.Visible then
    begin
      Label1.Visible := true;
      Label2.Visible := true;
      Label3.Visible := true;
      Label4.Visible := true;
      ......
      DBEdit19.Visible := false;
      DBEdit20.Visible := false;
      DBEdit21.Visible := false;
      DBEdit22.Visible := false; 
      DBEdit23.Visible := false;
      DBMemo1.Visible := false;
      Speedbutton6.Visible := false;
      ToolButton13.ImageIndex := 9;
    end
  else
  if Label1.Visible then
    begin
      Label1.Visible := false;
      Label2.Visible := false;
      Label3.Visible := false;
      Label4.Visible := false;
      .......
      DBEdit19.Visible := true;
      DBEdit20.Visible := true;
      DBEdit21.Visible := true;
      DBEdit22.Visible := true;
      DBEdit23.Visible := true;
      DBMemo1.Visible := true;
      Speedbutton6.Visible := True; 
      ToolButton13.ImageIndex := 11;
    end;
end;

Die klappt auch vom ToolButton und aus dem Menü heraus. Nur bei nem Shortcut gehts nicht?!?
Delphi springt dann in die CPU-Ansicht. was mach ich da (falsch)?
Viele Grüße....

[marabu]

Hallo Stefan,

du solltest F12 nicht als shortcut nehmen.

Grüße vom marabu