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....