Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 28.05.04 09:17

Лучшее из нашего FAQ   |x|
Как узнать размеры 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;


Источник: Дельфи. Вокруг да около.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Сохранение и загрузка данных в объекты на примере коллекций.
Если в Вашей программе используются классы для описания объектов некоторой предметной области, то данные, их инициализирующие, можно хранить и в базе данных. Но можно выбрать гораздо более продуктивный подход, который доступен в Delphi.
Новинки книжного рынка   |x|
Базы данных в Delphi 7. Самоучитель
В этой книге урок за уроком описывается работа с базами данных. Демонстрируются широкие возможности по созданию интерфейса пользователя и рассказывается о большом наборе стандартных компонентов, с помощью которых можно создавать приложения достаточно высокого уровня сложности. Самоучитель предназначен для читателей, знакомых с основами объектно-ориентированного программирования и уже имеющих опыт написания простых программ в среде Delphi.
Автор: Понамарев В. А.
Опрос населения :)
Примите вы участие в олимпиаде по программированию на этом сайте?
»»» Обязательно
»»» Если понравятся призы
»»» Если будет время
»»» Наверное нет
»»» Точно нет
Для души

Хокку дня
Игрушечным шаром
Упало светило --
Осколки блестят.

Афоризмы
Большая часть ворующих расценивает свое воровство как восстановление справедливости.......

Фраза дня
И какой-то Win95 будет мне указывать, когда комп выключать?!

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В гроде Литтл Рок в Арканзасе (США) запрещается выгуливать коров на главной улице после часа дня в воскресенье .
В Нью Хемпшире (США) считается преступлением вписыватся в отель под чужим именем.

И на закуску коротенький анекдот
Последняя запись из чёрного ящика упавшего самолёта:
- Пап, а пап, дай порулить!

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=32

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное