Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Обнаружить на форме одновременное нажатие нескольких клавиш

Советы » Клавиши » Обнаружить на форме одновременное нажатие нескольких клавиш

{ 
  I would like to detect more than 2 keys being pressed within a form. 
  For example I would like to know if the user pressed time. 
  The onkeydown seems to only check for one or two keys max but surely 
  you can determine what keys are currently down. 
}

 // You can use GetKeyState: 

procedure

TForm1.FormKeyDown(Sender: TObject; var

Key: Word; Shift: TShiftState); begin

If

((GetKeyState(VK_CONTROL) AND

128)=128) and

((GetKeyState(VK_F5) AND

128)=128) and

((GetKeyState(ord('8')) AND

128)=128) then

ShowMessage('CTRL+F5+8 Pressed'); end

; ( Remember: Form1.Keypreview := TRUE ) // Or you can read the entire KeyBoard Status, // and later check for the three keys: procedure

TForm1.FormKeyDown(Sender: TObject; var

Key: Word; Shift: TShiftState); var

KeybState: TKeyboardState; begin

GetKeyboardState(Teclado); If

( (KeybState[VK_CONTROL] and

128)=128 ) and

( (KeybState[VK_F5] and

128)=128 ) and

( (KeybState[Ord('8')] and

128)=128 ) then

ShowMessage('CTRL+F5+8 Pressed'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com