Кто-нибудь выложите пример создания контекстного меню в Pascal! На первом курсе делал- уже не помню. Не хотелось бы снова Обьектно Ореентированное Программирование перерывать. По примеру легче! Или ссылку, если моно.

А зачем ООП прерывать, пиши ОО контекстное меню.
Кстати в Pascal, если есть поддержка библиотеки Turbo Vision, то моно очень просто меню создать. Счас постораюсь ченить поконкретнее тебе отыскать....

SPrograMMer, спасибо. Тurbo Visio мы вообще в политехе не проходили, но я уже пробовал работать с ним, так что если что найдешь я буду рад! И сам поищу что - нибудь.

SPrograMMer, во нашел ссылку: http://www.citforum.ru/programming/tv_doc/tvdoc_01.shtml.
Но мне нужен простой пример- ОО контекстного меню. Если есть - выложи пожалуйста.

Уже с самого начала проблемы!!!
Написал следующую прогу:
uses app, Menus, Objects, Drivers;
type
TMyApp=object(TApplication)
procedure InitStatusLine;
virtual;
end;
procedure TMyApp.InitStatusLine;
var
r: TRect;
begin
GetExtent®;
R.A.Y:=R.B.Y-1;
StatusLine := New(PStatusLine, Init(r,
NewStatusDef(0, $ffff,
NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit, {Oшибка!!!!}
NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose, {Ошибка!!!!}
nil)),
nil)
));
end;
var
MyApp: TmyApp;

begin
MyApp.Init;
MyApp.Run;
MyApp.Done;
end.
Все правильно, но выдается ошибка: неизвестная ...(unknown identifier) на константах cmQuit и cmClose. В чем проблема?

Решил проблему написав вместо cmQuit - 1(работает!). Прошу помочь в поиске соответствий между стандартными константами и числами(нашел только: cmQuit=1, cmZoom=5).

Какая же она не известная, ты значит идентификаторы cmQuit и cmClose не указал, т.е. в разделе указания типов (или в др. месте) не выделил для них память.

Zero, как это сделать скажи!

этих индентификаторов у меня даже в хелпе нет! как и hcNoContext! есть только cmNew, cmOpen и несколько других, с числовыми соответствиями.

Цитата(nero_schwarz @ 27.11.2004, 23:39)

этих индентификаторов у меня даже в хелпе нет! как и hcNoContext! есть только cmNew, cmOpen и несколько других, с числовыми соответствиями

Конечно нет, в хелпе пишут только информацию о функциях, процедурах, типах (в частносте которые определяют идентификаторы) и т.д.

Цитата(nero_schwarz @ 27.11.2004, 23:21)

Zero, как это сделать скажи

Если ты имеешь ввиду как выделить память для идентификатора, то это делаестя либо в разделе констант

Код

Const  cmQuit=<какое-нибудь значение любого типа (но который связан с тем что хочеш делать>; ...

Либо в разделе переменных

Код

Var  <идентификатор>:<тип>; ...

Либо динамически во время выполнения программы, но если ты ещё незнаеш предыдущих двух способов, то этим я тебе даже голову забивать не буду.

Цитата

cmQuit=<какое-нибудь значение любого типа (но который связан с тем что хочеш делать>;

да знаю я это! но ты можешь мне эти значения сказать? для cmQuit я нашел, оно =1. Я же не могу просто с неба эти значения брать!

nero_schwarz, чем должны отличатся команды, Exit и Close??? Если это обе выход то зачем тебе 2 штуки? Если эти обе команды выхода, но хочеш сделать их на разные кнопки, то можеш сделать также

Код

Const  cmQuit=1;  cmClose=1; ...

Правда это всё тупо, ну и код у тебя тупой, и ещё написал ты его с ошибкой, т.е. чтобы получить координаты всего экрана, надо писать так

Код

GetExtent (R)

а ты там написал какуюто-закарючку...
Но если ты всётаки не понял про-что я те талкую, то вот тебе ещё одна ссылка, там вроде идёт базар про твой вопрос...

Zero, ну ты дал! ты вообще понятие имеешь, про что говоришь? cmClose - команда закрытия активного окна, cmQuit - выход из программы. и написал я все нормально- просто при копировании текста лажа вышла!
Добавлено @ 17:29
Zero, насчет ссылки- я уже штук 20 сайтов на эту тему нашел, и похоже они все друг у друга слово в слово списывали. и ничего по существу. Ну не работает у меня прога, если я cmClose, cmQuit или hcNoContext пишу! Мне нужно числовое значение этих идентификаторов!
Некоторые описаны в Хелпе, для cmQuit и cmZoom я в инете нашел, ну и остальные должны же быть где-то!

ну кто-нибудь, загляните в учебник Фаронова. там наверняка есть! в приложениях где-нибудь...

У меня, есть его учебник, и он написан на тему "Delphi 6". Хотя может быть есть и с пакалем. Но помоему тебе надо лучше смотреть что написано на тех 20 сайтах которые ты нашёл, врядли они станут друг у друга всё переписывать если как ты говоришь у всех всё не правильно...