Código Delphi [-] procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Shift = [ssAlt] then begin if Menu = nil then Menu:= MainMenu1 else Menu:= nil; Key:= 0; end; end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Shift = [ssAlt] then begin if Menu = nil then Menu:= MainMenu1 else Menu:= nil; Key:= 0; end; end;