Ctrl+Alt+C+H нажмёшь и будет чудо

[Richard22]

Мне нужно чтоб при нажатии сочетания 4х клавиш: Ctrl+Alt+C+H , становилась видна невидимая кнопка в TMainMenu.
А ещё меня интересует можно ли сделать вложенное меню в TMainMenu, как например в Приложении "paint" в Меню => Вид => Масштаб?Если да то как?

[Яр|/||< (^_^)]

Да вроде add sub menu или как то так! Вообщем чё то с sub .

[Alex Cones]

ПКМ => Create Submenu

[Richard22]

Со второй частью понял, всем спасибки, помогите теперь с первой, ну очень нужно!

[x128]

можно так:

var
  GKey: array[0..3] of byte=(0,0,0,0);

...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=17 then GKey[0]:=1; // CTRL
  if key=18 then GKey[1]:=1; // ALT
  if key=67 then GKey[2]:=1; // 'C'
  if key=72 then GKey[3]:=1; // 'H'

  if (GKey[0]<>0) and (GKey[1]<>0) and (GKey[2]<>0) and (GKey[3]<>0) then Button1.Visible:=true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key=17 then GKey[0]:=0;
  if key=18 then GKey[1]:=0;
  if key=67 then GKey[2]:=0;
  if key=72 then GKey[3]:=0;
end;

свойство формы KeyPreview дожно быть установлено в TRUE

[Richard22]

ААА спасибо вам огромнейшее!!! вы спасли меня, а так же весь мир)))