Модуль для работы с векторами. Содержит функции: скалярное и векторное произведение, поворот вектора вокруг другого вектора и др. ОЧЕНЬ ПРОСТОЙ МОДУЛЬ, ВЫКЛАДЫВАЮ НА САЙТ ТОЛЬКО ЧТОБЫ СЭКОНОМИТЬ ЛЮДЯМ ВРЕМЯ НА ЕГО НАПИСАНИЕ
»»» Скачать: исходные тексты (1кб)
Описание: Примеры работы с Enum-функциями WinAPI EnumWindowStations (только в NT-системах), EnumDesktops (только в NT-системах), EnumDesktopWindows (только в NT-системах), EnumWindows, EnumUILanguages (только Win2k или более поздняя версия), EnumSystemLanguageGroups (только Win2k или более поздняя версия), EnumSystemCodePages, EnumSystemLocales, GetKeyboardLayoutList
»»» Скачать: исходные тексты (16кб)
Как узнать размеры TComboBox с показанным выпадающим списком до показа списка?
На событии FormShow пошлите сообщение CB_SHOWDROPDOWN в ComboBox дважды - один раз чтобы заставить список выпасть, второй - чтобы убрать его. Затем пошлите сообщение CB_GETDROPPEDCONTROLRECT, передав в качестве параметра адрес TRect. TRect будет содержать экранные кординаты прямоугольника описывающего ComboBox вместе с выпавшим списком. Затем Вы можете вызвать ScreenToClient чтобы преобразовать экранные кординаты в координаты клиентской области окна. Пример:
var R : TRect; procedure TForm1.FormShow(Sender: TObject); var T : TPoint; begin SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0); SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 0, 0); SendMessage(ComboBox1.Handle, CB_GETDROPPEDCONTROLRECT, 0, LongInt(@r)); t := ScreenToClient(Point(r.Left,
r.Top)); r.Left := t.x; r.Top := t.y; !
t := ScreenToClient(Point(r.Right, r.Bottom)); r.Right := t.x; r.Bottom := t.y; end;
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Canvas.Rectangle(r.Left, r.Top, r.Right, r.Bottom ); end;
Как обнаружить трояна на компьютере.
У меня на компьютере - судя по всему - троян, позволяющий им управлять. Как его обнаружить и уничтожить, а также ...
ADO
Помогите разобратся. Заношу данные в таблицы с помощью StoredProcedure(передаю, как параметры) c уникальным ИД. ИД я ...
FindFirst, FindNext
Привет всем! что это такое, может кто объяснит.. в папке 2 текстовых файла..... if FindFirst ('папка\*.*,s')=0 then ...
Проблема поиска файлов из сервиса
Проблема в следуюющем, функци FindFirst и FindNext не хотят искать файлы на сетевых дисках (код ошибки 3 - путь не ...
Не показывать в гриде определенные записи
Как можно в дбгриде не показывать записи, содержащие определенные значения? Таблица АДО и является detailtable. То есть ...
Формат даты в MySQL
Можно ли изменить формат столбцов данных типа date в СУБД MySQL 4.1.0? По умолчанию там стоит американский yyyy-mm-dd. ...
Мониторинг сетей в Delphi
В этой статье мы рассмотрим некоторые функции, которые предоставят нам возможность контроля локальной сети. Так как материал довольно обширный, я не буду пускаться в отвлеченные рассуждения, и буду давать только самую суть.
Delphi 6 и Kylix для программиста
В этой книге на практических примерах рассмотрены все возможности среды Delphi 6. Читательузнает, как создавать многоуровневые программы для работы с базами данных, Интернет-системы и сетевые распределенные приложения на основе технологий СОМ и CORBA. Рассмотрены механизмы преобразования XML-данных и приемы разработки служб WebServices. В большинстве случаев программист может обойтись визуальными средствами Delphi.Характер авторских работ С. Бобровского традиционно отличается тем, что они не только служат фундаментальными руководствами по новым технологиям программирования, но и представляют собой удобные справочники, полезные каждому программисту, независимо от уровня его подготовки.
Автор: Бобровский С.
DELPHI5.hostmos.RU Сайт посвященный программированию на Delphi. Здесь Вы сможете найти программы, исходники, компоненты, документацию, статьи, форум и т.д.:) А также Секреты Windows.
» Оценка сайта: 3
Хокку дня
Все тот же бренный мир, Пьянея, плачу В сумерках осенних.
Афоризмы
Надежда - хороший завтрак, но плохой ужин (Фрэнсис Бэкон)
Фраза дня
Иду, вижу - кто-то пить бросил...
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Лос Анжелесе (США) муж не имеет права бить жену ремнем шире двух дюймов, не получив от нее предварительного согласия.
На Гавайях запрещается вставлять в уши монеты.
И на закуску коротенький анекдот
- Ты слышал, в Монако запретили футбол? - Нет... А почему?! - Хлопотное дело! Мяч без конца улетает то в Италию, то во Францию...