При помощи функции LoadBitmap мы можем захватывать рисунки, которые Windows использует для кнопок полос прокрутки, переключатели и т.д. Здесь мы имеем функцию, которая назначает TImage один из точечных рисунков.
|
|
Здесь рассматривается, как можно получить текст чужого окна, когда курсор мыши находится над ним. Можно просматривать текст под звездочками в текстовом поле. Для этого поместите компоненты TTimer (Timer1), TEdit (Edit1) и TLabel (Label1) на форму и запишите следующий код:
|
Этот пример демонстрирует использование функции AppendMenu() Windows API, чтобы добавить в конец системного меню новый пункт. Мы определим новую системную константу SC_MyMenuItem, которая будет использоваться для идентификации нашего нового пункта меню в системе. После добавления пункта меню, будем ловить сообщение WM_SYSCOMMAND, чтобы проверить, выбран ли наш пункт меню.
|
Приведу простой пример, как можно использовать данную форму. Допустим Вам надо сделать программу- напоминалку. Висит эта форма и на ней постоянно отображаются Ваши встречи, дела, праздники или другая полезная информация. Получится этакий Active Desktop :) Но будет он жрать ресурсов на порядки меньше.Реализуется все это очень просто.
|
Ниже приведена функция GetCPUSpeed, которая позволит узнать частоту Вашего процессора. Функция не получает никаких параметров, а возвращает число с плавающей точкой. Возвращаемое значение означает частоту Вашего процессора в МГц.
|
Как закрыть программу с предупреждающим сообщением пользователю о фатальной ошибке?
|
Как некоторые узлы в TTreeView выделить жирным шрифтом? Есть самый простой, но надежный способ реализации этого. Стандартное управление Windows TreeView имеет несколько флагов состояния (в нашем примере TVIS_BOLD и TVIS_CUT). При помощи этих флагов можно добиться нужного результата.
|
Для того, чтобы изменить вид всплывающей подсказки и сделать ее в виде воздушного шара, как этот делается в некоторый приложениях Windows XP, нужно всего лишь добавить приведенный ниже код в исходный код формы Вашего приложения.
|
Чтобы привязать свою форму к другому окну, а также отображать ее поверх этого окна, нужно просто переопределить процедуру CreateParams этой формы. Для этого нужно просто знать дескриптор окна.
|
Иногда пользователи хотят, чтобы в приложении можно было переходить по полям ввода при нажатии на клавишу Enter, так как намного удобнее, чем Tab. Есть много способов этого добиться, но этот способ намного практичнее, достаточно добавить одну процедуру. В нашем случае эта процедура - EnterAsTab.
|
Компонент TLIstBox представляет собой коллекцию элементов в прокручиваемом списке. Delphi позволяет легко прогаммировать перетаскивание элементов списка в приложениях. Это уже было рассмотрено здесь.
|
Если Вашему приложению нужно отреагировать, когда пользователь изменяет системную дату, то можно перехватить сообщение WM_TIMECHANGE Windows.
|
Когда Вы разрабатываете приложение, которое имеет всплывающее меню, часто возникает необходимость добавлять пункты меню во время работы приложения. Каждый пункт меню представлен классом TMenuItem. Когда пользователь щелкает на пункте меню, происходит событие OnClick. Вам же нужно перехватить это событие и отреагировать на него.
|
Для того, чтобы позволить перетаскивание пунктов TreeView, нужно установить свойство DragMode в dmAutomatic. А в событии OnDragOver записать следующее:
|
Для придания 3D эффекта Вашему шрифту, можно применить приведенную ниже функцию ExtFont. Вывод осуществляется на Canvas, так что текст можно выводить в любое окно, которое имеет свойство Canvas.
|
Чтобы сделать снимок части экрана в Delphi приложении, воспользуйтесь процедурой ScreenShot, которая приведена ниже. В качестве единственного аргумента в процедуру передается переменная TBitmap, куда и будет помещено изображение.
|
|
|
|
|
|