Delphi FAQ >> Операционная система Чтобы имитировать нажатие той или иной клавиши в Windows можно посылать специальные сообщения, которые расскажут принимающему окну, что нажата клавиша. Для некоторых клавиш есть другие пути эмулирования. Например, чтобы сэмулировать нажатие клавиши Tab в активном окне, можно воспользоваться следующей процедурой: SelectNext(screen.ActiveControl, True, True); Как видно из названия, эта процедура не …
Read More «Программирование на Delphi и не только Имитация нажатия клавиши Tab для перемещения фокуса | Программирование на 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 := …
Read More «Программирование на Delphi и не только Преобразование десятичной СС в другую | Программирование на Delphi и не только»
Delphi FAQ >> Система Для определения глобальных координат (x, y) курсора мыши воспользуйтесь процедурой: GetCursorPos(var Pos : TPoint); Эта процедура поместит в переменную Pos координаты курсора — Pos.x и Pos.y С наступлением весны водители обращаются в шиномонтаж чтобы поставить летнюю резину.
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; …
Read More «Программирование на Delphi и не только НОД двух натуральных чисел | Программирование на Delphi и не только»