Jump to content

Родимый Delphi


Recommended Posts

Подскажите как сделать так, чтобы прога управлялась с клвавы, я не могу даже по эскепу выходить. Где нужно описывать процедуру и как, если можно по подробнее.

Есть каки-нить идеи по отключению комбинаций тип ctlr+Alt+Del, Alt+Tab, Alt+Esc... в ХР?

Link to comment
Share on other sites

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if Key = VK_ESCAPE then

  Close;

end;

Это закрывает форму по нажатию Escape. Значит по форме щелкни и в Object Inspector на вкладке Events два раза щелкни справа от OnKeyDown. Появится окошко с кодом. Впиши туда то, что я выделил жирненьким... Запускай прогу и жми Escape.

Если хочешь посмотреть коды других клавиш, то установи курсор на VK_ESCAPE и жми F1.

P.S.

http://delphibase.endimus.com/

http://delphi.mastak.ru/

и еще здесь

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...