Работу с колонками и рядами я “запрятал” в контекстное меню следующим образом…
При выделении таблицы или её части и нажатии на правую клавишу мыши выпадает вот такое меню, позволяющее работать с колонками и рядами таблицы.
Как это сделать?
Добавим компонент TPopupMenu на форму, в ObjectInspector перейдем в Items и для каждого нового итема укажем соответствующее свойство Action
Теперь перейдем к компоненту ApplicationEvents, к его событию OnMessage и напишем в нём следующее
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
procedure TMainForm.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean); //var i,j:integer; IndexToDelete:integer; FilePath:string; var i:integer; begin //Ловим нажатие правой клавиши мыши if Msg.message=WM_RBUTTONDOWN then begin //Если итем это таблица... if RichViewEdit1.GetCurrentItem.StyleNo=-60 then RichViewEdit1.PopupMenu:=pm1 else RichViewEdit1.PopupMenu:=nil; end; end; |