 Чтобы задать поля в компоненте TMemo, нужно отправить сообщение EM_SETRECT Memo и установить размер холста компонента.
Для примера, поместите один компонент TMemo (Memo1) и кнопку TButton (Button1) на форму Form1. Кнопка нужна лишь для того, чтобы наглядно увидеть изменения, когда будут установлены поля слева и справа.
Затем добавьте какой-нибудь текст в свойстве Lines компонента TMemo и запишите код, который находится ниже в событие OnClick кнопки Button1:
|
Когда Вы в своих приложениях Delphi работаете с файлами и папками, иногда бывает нужно узнать размер файла (в байтах). Для того, чтобы получить размер файла, используйте функцию FileSize, которая возвращает размер файла в байтах, или -1, если файл не был найден.
|
Если нужно вытащить иконку, связанную с каким-либо приложением, можно использовать функцию ExtractAssociatedIcon. Но здесь есть некоторые особенности.
Для примера поместите кнопку по имени Button на форму, где-нибудь по центру, так как в левом верхнем углу мы будем рисовать нашу иконку. Подключите модуль ShellApi в разделе uses Вашего проекта.
|
Иногда может потребоваться разрешить или запретить пользователю нажимать кнопку Пуск Windows. Чтобы реализовать это, поместите две кнопки на форму и запишите этот код:
|
Здесь показано, как можно включить или отключить доступ к иконкам на Рабочем Столе Windows.
Для проверки работы кода поместите две кнопки (Button1 и Button2) на форму (Form1). Далее запишите этот код:
|
Если Вам необходимо преобразовать значения пикселей в миллиметры (дюймы, сантиметры и т.д.), используйте код, представленный ниже.
Код использует функцию API GetDeviceCaps для получения единиц измерений, которые Вам нужны.
|
 Когда Вы используете Проводник Windows для копирования файлов, можно ли использовать функцию Вставить в Вашем приложении?
Этот код демонстрирует, как можно извлечь имена файлов из буфера обмена. Для примера мы вставляем список файлов в компонент TMemo (Memo1). Для этого нужно поместить два компонента на форму: TMemo (Memo1) и TButton (Button1). Не забудьте в секцию uses дописать модули Clipbrd и ShellApi. В событие OnClick кнопки вставьте этот код:
|
 Здесь мы рассмотрим, как можно преобразовать целое число в строку, добавив к этому числу незначащие нули.
Допустим, что Вы разрабатываете приложение с базой данных и должны сохранить номер клиента, где каждое число должно быть длиной 10 знаков. Но если начинать сначала, то клиенты будут с номерами 2,4,7 и т.д., то есть меньше, чем 10 знаков.
Давайте напишем функцию AddLeadZero, которой будет передаваться два параметра: Number - число, к которому будем добавлять нули; Length - общее количество символов (если меньше, добавить нули).
|
Для того, чтобы скрыть или показать курсор мыши с экрана, можно использовать API функцию ShowCursor. Но это касается только нашего приложения, из которого эта функция вызывается. Если Вы хотите скрыть курсор полностью, во всех окнах и приложениях, то можно просто вынести курсор за пределы экрана при помощи API функции ClipCursor.
|
 Числовая система определяет набор значений, которые используются для представления чисел. Компьютер использует двоичную систему исчисления. Двоичная и шестнадцатеричная система исчисления (используется для представления значений [номера и адреса памяти] в компьютерных системах) являются важными для программирования. Двоичные числа важны, потому что компьютер работает c двоичными числами - номера состоят из двух цифр 1 и 0. Шестнадцатеричные числа удобны, потому что они позволяют легко обрабатывать двоичные числа.
Delphi предоставляет множество полезных функций для преобразования целых чисел (в десятичной системе) строковые значения (строка это способ представления шестнадцатеричных и двоичных чисел), и наоборот.
Давайте посмотрим, какие функции можно использовать для преобразования чисел из одной системы в другую, каких функций не хватает и как легко реализовать их в Object Pascal. IntToHex, ObjectPascal.HexToInt.
|
|
Вот код, который будет отображать стандартное окно свойств Windows для указанного имени файла (объекта).
|
|
Системы исчисления, которые сегодня используются, в большинстве своем являются арабской системой исчисления. Десять однозначных цифр 0 до 9, составляют символы нашей числовой системы. Примером другой системе счисления является система римских цифр, которые могут представлять все числа от 1 до 1000000, используя только семь символов: I = 1, V = 5, X = 10, L = 50, C = 100, D = 500, M = 1000. Пример: 1973 (арабская) это MCMLXXIII (римская).
|
|
Вот кусок кода Delphi, при помощи которого можно захватывать изображение рабочего стола Windows в объект TBitmap:
|
|
Мигание окна означает изменение внешнего вида заголовка, как было бы, если бы окна переходили из неактивного в активное состояние, или наоборот.
Как правило, мигающие окна делают для информирования пользователя о том, что окно требует внимания, но в настоящее время не имеет фокуса.
Функция FlashWindow API мигает окно только один раз.
|
|
Например, что нужно сделать, чтобы вернуть строку: "C: \ Documents и Settings \ [имя пользователя] \ Application Data \", для текущего пользователя Windows, при вызове?
Действует только на Windows NT/2K/XP
|
|
|
