Текущий архив: 2003.09.15;
Скачать: CL | DM;

Вниз

Процедура обработки сообщения.   Найти похожие ветки 

← →
AHTOH   (2003-09-02 20:07) [0]

Я пытаюсь обрабатывать сообщение от иконки приложения в трее:
код такой: private
{ Private declarations }
procedure IconManager(var msg:TMessage);message wm_user+100;
.....................................
procedure TMain.IconManager(var msg:Tmessage); {*}
begin
....
end;

так вот в месте {*} выдает ошибку[Error] Unit1.pas(175): Declaration of "IconManager" differs from previous declaration
- описания отличаются.
как мне поправить код?
Аналогичным образом описывал процедуру обработки сообщения в другой программе- там ошибку не выдавал.

---

← →
Song ©   (2003-09-02 20:09) [1]

У меня всё работает:

procedure WMGetSysCommand(Var Msg:TWMSysCommand); message WM_SYSCOMMAND;

Procedure TMain.WMGetSysCommand(Var Msg:TWMSysCommand);
{ Обработчик WM_SYSCOMMAND }
Begin
{ если нажата кнопка минимизации окна }
IF Msg.CmdType=SC_MINIMIZE then
Begin
{ Прячем окно TApplication }
ShowWindow(Application.Handle,SW_HIDE);
{ Прячем главное окно }
ShowWindow(Handle,SW_HIDE);
{ Добавляем иконку в трей }
Ic(1,Application.Icon);
End else inherited;
End;

---

← →
Skier ©   (2003-09-02 20:09) [2]

Что хотят то и творят !

---

← →
хм ©   (2003-09-02 20:12) [3]

Нажми ctrl+shift+c на строке в определении TMain

---

← →
AHTOH   (2003-09-02 20:47) [4]

нажал - ошибка остается.
а что вообще делает complete class at cursor?

---

← →
Романов Р.В. ©   (2003-09-02 21:16) [5]

F1 - Class completion

---

← →
AHTOH   (2003-09-03 13:57) [6]

так в чем заключатеся этот class completion - дополнение класса, если я так перевожу?

---

← →
PVOzerski ©   (2003-09-03 14:00) [7]

Ты случайно после объявления класса tMain тип tMessage не переопределил?

---

← →
Skier ©   (2003-09-03 14:13) [8]

>AHTOH (02.09.03 20:07)
Чтобы сказать где косяк нужно побольше кода...

---

← →
AHTOH   (2003-09-03 14:31) [9]

изменил Tmessage -на Tmsg - все заработало!!!(почему-не понимаю все равно)
всем спасибо!!!

---

← →
Skier ©   (2003-09-03 14:41) [10]

> почему-не понимаю все равно

Конфликт типов.

Можно ещё так выйти из ситуации
procedure IconManager(var msg: Messages.TMessage);message...

---

← →
AHTOH   (2003-09-03 14:54) [11]

вру! позор мне!
не заработало.
а я действительно переопределил тип Tmessage.-теперь все ОК
спасибо всем, а особенно PVOzerski

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.15;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.022 c