Программирование на Delphi и не только Имитация нажатия клавиши Tab для перемещения фокуса | Программирование на Delphi и не только

Delphi FAQ >> Операционная система Чтобы имитировать нажатие той или иной клавиши в Windows можно посылать специальные сообщения, которые расскажут принимающему окну, что нажата клавиша. Для некоторых клавиш есть другие пути эмулирования. Например, чтобы сэмулировать нажатие клавиши Tab в активном окне, можно воспользоваться следующей процедурой: SelectNext(screen.ActiveControl, True, True); Как видно из названия, эта процедура не …

Программирование на Delphi и не только Преобразование десятичной СС в другую | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы { Данная функция возвращает представление десятичного Decimal в виде другой системы счисления с основанием Base (в промежутке от 2 до 16) } function DecToBase(Decimal: LongInt; const Base: Byte): String; const   Symbols: String[16] = ‘0123456789ABCDEF’; var   scratch: String;   remainder: Byte; begin   scratch := »;   repeat     remainder := …

Программирование на Delphi и не только Как определить глобальные координаты курсора мыши? | Программирование на Delphi и не только

Delphi FAQ >> Система Для определения глобальных координат (x, y) курсора мыши воспользуйтесь процедурой: GetCursorPos(var Pos : TPoint); Эта процедура поместит в переменную Pos координаты курсора — Pos.x и Pos.y С наступлением весны водители обращаются в шиномонтаж чтобы поставить летнюю резину.

Программирование на Delphi и не только НОД двух натуральных чисел | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы function NOD(a, b: Longint): Longint; begin   while (a 0) and ( b 0) do   if (a > b) then     a := a mod b   else     b := b mod a;   if (a = 0) then     result := b   else     result := a; …