Исходники Delphi

Привет, Гость! | Выход

Список пользователей

Изменить сведения

Читать ЛС ()

Отправить ЛС

Добро пожаловать на наш портал

На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
 
Правообладателям RSS 2.0 О сайте Добавить новость Контакты Правила

Меню

Не доступно

Не доступно

Опрос

Оцените мой сайт

Проголосовало: 118
Другие опросы

Результаты опроса

 Главная » 2013 » Февраль » 26 » Меню с картинками в Делфи
15:45
Меню с картинками в Делфи
Как сделать пункты меню с картинками

Следующий код показывает, как добавить картинку в виде объекта TImage в объект TMenuItem.

Код
var  
  hHandle: THandle;  
  x: integer;  
  // visual controls:  
  hMenu: TMenuItem;  
  Image1: TImage;  

...  

  x:= 10; // десятый пункт меню
  hHandle := GetMenuItemID(hMenu.handle, x);  
  ModifyMenu(hMenu.handle, hHandle, MF_BYCOMMAND Or MF_BITMAP, hHandle,  
  PChar(Image1.picture.bitmap.handle))
Категория: Графика, оформление | Просмотров: 1441 | Добавил: Reif | Рейтинг: 0.0/0
Всего комментариев: 0
Ваше Имя:
Ваш E-Mail:
Код:


Название блока

Здесь html код

Категории

Для новачка [25]
Графика, оформление [14]
Аудио [5]
Видео [1]
Интернет и сети [15]
Работа с текстом [10]
Локальные диски [5]
Математические приложения [4]
Многопоточные приложения [3]
Многооконные приложения [2]
Базы Данных [5]
Ini/Dll/ выгрузка и загрузка [4]
Защита, Безопасность [1]
Информеры Progress|Statusbar [2]
Разное [13]
Видеоуроки [4]
FAQ по делфи [1]
Книги Delphi [1]
Дополнения|Компоненты|Кнопки [2]

Название блока

Здесь html код

Название блока

Здесь html код

Название блока

Здесь html код
 
Исходники Delphi
Сделать бесплатный сайт с uCoz |