контекстное меню в паскаль

[xakkkkker]

Как на паскале можно создать контекстное меню. А то че то я не догоняю.

[Alt]

Есть специальный компонент для этого.
TPopupMenu называется.

Пользоваться вот так:

PopupMenu1.Popup(X,Y);
где X,Y - координаты выскочившей менюшки.

[Serge_Bliznykov]

Есть специальный компонент для этого.
TPopupMenu называется.

Это не в Pascal есть, а в Delphi...
А что нужно автору, я, например, не понял..

и, если надо в DOS TurboPascal - то там сделать контексное меню будет непросто.

[Stilet]

В ТурбоПаскале 7 есть классы для создания меню. в Модуле menus по-моему.

[Serge_Bliznykov]

Borland Pascal's Standard Units
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀

A unit is a collection of constants, data
types, variables, procedures, and functions.

Borland Pascal provides the following standard
units:
Crt
Graph
Graph3
Overlay
Printer
Strings
System
Turbo3
WinAPI
WinCrt
WinDOS
WinPrn
WinProcs
WinTypes

к сожалению, Виталий, Вы, скорее всего, имеете в виду какую-то стороннюю библиотеку (или набор библиотек).
Да и то, я не уверен, что там была в том числе реализация контекстного меню...
Очень надеюсь, что автору всё же не нужен DOS TP,
т.к. DOS is dead....

[Stilet]

Serge_Bliznykov

Ох любий друже...
Я не с бухты которая Барахта говорю, ибо сам пользовал ранее в дипломках ТурбоПаскаль 7. И там есть классы Application, а к ниму можно прикручивать контекстные меню, главные меню, плаваюшие окошки, растягиваемые и перетаскиваемые мышкой...
У-у-у Короче говоря все то что есть в IDE ТурбоПаскаля можно прекрасно прикрутить к своей программе.
Зайди в папку
..\TP_71\TP\EXAMPLES\DOCDEMOS\
И увидишь там примеры:

program Tutorial;

uses Drivers, Memory, TutConst, Objects, Views, Menus, App, Editors,
Orders, Stocks, StdDlg, TutTypes, Count, Dialogs, Supplier, Validate;

var
ResFile: TResourceFile;

type
TTutorApp = object(TApplication)

Или вот кусок

procedure TTutorApp.InitMenuBar;
var
R: TRect;
begin
GetExtent(R);
R.B.Y := R.A.Y + 1;
MenuBar := New(PMenuBar, Init(R, NewMenu(
NewItem('~N~ew', '', kbNoKey, cmNew, hcNew,
NewItem('~O~pen...', 'F3', kbF3, cmOpen, hcOpen,
NewItem('~S~ave', 'F2', kbF2, cmSave, hcSave,
NewItem('Save ~a~s...', '', kbNoKey, cmSaveAs, hcSaveAs,
NewLine(
NewItem('E~x~it', 'Alt+X', kbAltX, cmQuit, hcExit,
nil)))))))));
end;

И там очень все закручено серьезно.
Описания правда нет в стандартном хелпе, но...
Интернет живее всех живых.

Так что учитесь, батенька, исследуйте и да прибудет с вами сало.
(т.е. сила)

[xakkkkker]

Да не густо но все же спасибо

[Grag]

Сообщение от Stilet

У-у-у Короче говоря все то что есть в IDE ТурбоПаскаля можно прекрасно прикрутить к своей программе.

Вообще-то сама IDE TP создана с применением библиотеки TurboVision..., которая входит в комплект поставки... Вот там можно сделать все... и это уже из области ООП