имот PopupMenu
Имоти PopupMenu StringGrid Delphi определя дали и как се показва в контекстното меню, когато щракнете с десния бутон на мишката. Имотът съдържа име PopupMenu PopupMenu компонент, който ще работи в контекста на повикване Менон маса.
В обекта инспектор PopupMenu имот е падащ списък, съдържащ всички PopupMenu на компоненти, който се намира във формуляра. Можете да изберете един от тях, или да напуснат поле PopupMenu в обекта инспектор празна. В този случай, стандартен текст на контекстното меню на Windows ще бъде използван като контекстно меню:
Дори ако фазата на развитие PopupMenu имот не е бил създаден, в който случай можете да регулирате имот PopupMenu програмно, например, във формулярите за събитието OnCreate:
контрол на програмата се използва също и за да се получи различна маса на контекстни менюта, всяка от които се използват във всеки конкретен случай. Например, ако съдържанието на клетка е празна, който се използва PopupMenu1 компонент. ако съдържа текст, PopupMenu2.
В този случай, кодът се променя свойствата PopupMenu маса трябва да се извършва, когато натиснете бутона на мишката, за да я намерите в долно положение, т.е. събитие OnMouseDown. като контекстното меню се извиква, когато преминават по десния бутон на мишката от долния позиция до върха, и в този момент PopupMenu имот трябва да се промени:
процедура TForm1.StringGrid1MouseDown (Sender: TObject;
Button: TMouseButton; Shift: TShiftState;
X, Y: цяло число);
Var Acol, ARow: цяло число;
започвам
с StringGrid1 правя
започвам
MouseToCell (X, Y, Acol, ARow);
Col: = Acol; Ред: = ARow;
Ако клетките [Acol, ARow] = ''
след PopupMenu: = PopupMenu1
друго PopupMenu: = PopupMenu2;
приключи;
приключи;
Същият код трябва да се използва, ако контекстното меню в таблицата StringGrid не трябва да има, но вместо един от PopupMenu компоненти трябва да се използва нула ключова дума:
Когато нула Използване на ключова дума в таблицата няма да бъде във всеки един от контекстното меню, дори стандартен текст на контекстното меню на Windows.
Свързани статии