Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.10.2008, 12:00   #11
chandrasecar
Форумчанин
 
Аватар для chandrasecar
 
Регистрация: 03.10.2008
Сообщений: 180
По умолчанию

Огромное спасибо! Вы мне очень помогли! JTG, случайно не знаете, как решить этот вопрос: http://www.programmersforum.ru/showt...830#post144830
??
лучший подарок женщине-программисту
chandrasecar вне форума
Старый 10.10.2008, 20:00   #12
chandrasecar
Форумчанин
 
Аватар для chandrasecar
 
Регистрация: 03.10.2008
Сообщений: 180
По умолчанию

Возник такой вопрос.
Использую в своей программе компоненты по типу BusinessSkinForm, а именно компонент TeForm из вкладки ThemeEngine. У этого компонента свои меню окна (правый щелчек мыши по заголовку окна и иконки), нестандартные. И код, который заменяет менюшки в стандартном окне, не работает.
Вопрос в том, как этот код можно адаптировать к этому компоненту?

Код:
private
    { Private declarations }
    procedure CaptionRClick(var Message: TMessage); message WM_NCRBUTTONDOWN;
    procedure CaptionLClick(var Message: TMessage); message WM_NCLBUTTONDOWN;
........

procedure TForm1.CaptionRClick(var Message: TMessage);
begin
   //если кликнули правой по шапке или иконке окна
   if (Message.wParam = HTCAPTION) or (Message.wParam = HTSYSMENU) then 
  begin
    ShowMessage('Правый клик по заголовку');
  end
  else inherited;  //остальное передаём окну
end;

procedure TForm1.CaptionLClick(var Message: TMessage);
begin
 //если кликнули по иконке окна
    if (Message.wParam = HTSYSMENU) then
  begin
    ShowMessage('Клик по иконке окна');
  end
  else inherited;
end;
Ссылка на компоненты: http://ifolder.ru/8508417

И если кто знает, как подменить меню окна, находящегося в трее с использованием все того же компонента? Там тоже свое нестандартное меню...

А может все это можно прописать через ф-ции GetSystemMenu или что-то в этом роде?
лучший подарок женщине-программисту

Последний раз редактировалось chandrasecar; 10.10.2008 в 22:41.
chandrasecar вне форума
Старый 12.10.2008, 01:45   #13
chandrasecar
Форумчанин
 
Аватар для chandrasecar
 
Регистрация: 03.10.2008
Сообщений: 180
По умолчанию

Всем спасибо. На предыдущее сообщение не отвечать. Вопрос решён.
лучший подарок женщине-программисту
chandrasecar вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сохранить значение Edit после закрытия tarakan1983 Помощь студентам 14 11.09.2008 08:25
Обработка события закрытия окна в С# Kriziun Общие вопросы .NET 2 14.04.2008 14:06
Перехват закрытия окна GAGARIN-NEW Общие вопросы Delphi 3 11.11.2007 12:30
TWebBrowser-как перехватить команду скрипта для закрытия окна и не дать ему закрыться Вовик Компоненты Delphi 5 03.10.2007 12:17
Как сделать чтобы дочерние окна в MDI-приложениях были вне главного окна??? dimonchuk Общие вопросы Delphi 1 11.08.2007 12:13