Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];

Вниз

получение сообщений в консольном приложении   Найти похожие ветки 

 
DillerXX ©   (2005-11-17 21:51) [0]

Как получать сообщения в консольном приложении, я опять же всё забыл, где здесь сделать объявление процедуры, чтобы можно было включить директиву message?


 
DillerXX ©   (2005-11-17 21:55) [1]

Решил проблему созданием нового юнита.. опять же сорри


 
DillerXX ©   (2005-11-18 12:54) [2]

нет, я перепутал, ничего я не решил...

unit Unit1;
interface
uses Windows, Messages;

procedure WndProc(var Msg: TMessage); message WM_DISPLAYCHANGE;

implementation

procedure WndProc(var Msg: TMessage);
begin
 writeln("Message!");
end;

end.

Ругается на message "[Error] Unit1.pas(5): Unknown directive: "message"". Помогите...


 
Digitman ©   (2005-11-18 13:19) [3]

книжки бы умные тебе почитать, барин .. по ООП в Делфи ..


 
DillerXX ©   (2005-11-18 13:35) [4]

А что, неужели без создания нового type нельзя ловить сообщения?


 
Leonid Troyanovsky ©   (2005-11-18 13:41) [5]


> DillerXX ©   (18.11.05 12:54) [2]
> нет, я перепутал, ничего я не решил...


Сделай вторичный поток, а в нем окно (но, лучше невидимое).
Только учти, что синхронизировать с первичным надо  в том числе
и вывод в консоль, скажем через критическую секцию.

Пример невидимого окна во вторичном потоке:

http://rsdn.ru/?Forum/?mid=883505

--
Regards, LVT.


 
Digitman ©   (2005-11-18 13:44) [6]


> неужели без создания нового type нельзя ловить сообщения?


можно.

но к декларации дельфийских классов это отношения не имеет - консольные приложения прекрасно живут и работают и безо всяких ООП-премудростей

касаемо же директивы message в справке черным по белому сказано :

A message method is created by including the message directive in a method declaration

у тебя ГДЕ декларация метода ? ГДЕ декларация класса, в котором этот метод объявлен ?

нет у тебя никаких классов в твоем коде) ... ну так а что же ты тогда хочешь ? компилятор  поэтому и дает тебе отлуп) .. и поделом ..


 
Digitman ©   (2005-11-18 13:54) [7]


> Leonid Troyanovsky ©   (18.11.05 13:41) [5]


доп.поток вовсе не обязален ... "умелые руки" с леккостью приспособят ReadConsoleInput() вместо блокирующего Read[Ln], из-за которого, собссно, и возникает сиюминутная идея вынести "оконные дела" в доп.поток


 
Leonid Troyanovsky ©   (2005-11-18 14:05) [8]


> Digitman ©   (18.11.05 13:54) [7]

> доп.поток вовсе не обязален ... "умелые руки" с леккостью
> приспособят ReadConsoleInput() вместо блокирующего Read[Ln],
>  из-за которого, собссно, и возникает сиюминутная идея вынести
> "оконные дела" в доп.поток


У меня, глядя на такие гибриды, всплывает лишь одна (вечная) мысль:
каждому - свое. Т.е., разлить лучше в разные флаконы.

--
Regards, LVT.


 
Leonid Troyanovsky ©   (2005-11-18 14:05) [9]


> Digitman ©   (18.11.05 13:54) [7]

> доп.поток вовсе не обязален ... "умелые руки" с леккостью
> приспособят ReadConsoleInput() вместо блокирующего Read[Ln],
>  из-за которого, собссно, и возникает сиюминутная идея вынести
> "оконные дела" в доп.поток


У меня, глядя на такие гибриды, всплывает лишь одна (вечная) мысль:
каждому - свое. Т.е., разлить лучше в разные флаконы (приложения).

--
Regards, LVT.



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

Форум: "Начинающим";
Текущий архив: 2005.12.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.044 c
9-1121683630
WondeRu
2005-07-18 14:47
2005.12.04
GLScene! Как наложить сетку на уже отрендеренную картинку?


2-1132240366
XSasha
2005-11-17 18:12
2005.12.04
Помогите за вознагрождение.


2-1132332119
HP
2005-11-18 19:41
2005.12.04
как изменить значок


14-1131808617
lookin
2005-11-12 18:16
2005.12.04
Раз уж не везет в хоккее, покажу фотографию...


9-1120320151
NE_Parovoz
2005-07-02 20:02
2005.12.04
Мутанчики (2D Demo)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский