| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Замена popmenu в tstringgrid'е [D7, XP]
sashap © (2007-08-03 20:54:00)Добрый день!
Скажите, пожалуйста, как заменить стандартное Popmenu (undo/cut/copy/paste) в tstringgrid'е при редактировании ячейки на новое?
sashap (2007-08-04 17:31:00) [1]Благодарю, begin...end! Это то - что было нужно!!!
begin...end (2007-08-04 11:34:00) [2]type
TExStringGrid = class(TStringGrid)
TEdit(TExStringGrid(StringGrid).InplaceEditor).PopupMenu := MyPopupMenu
sashap (2007-08-04 10:09:00) [3]Спасибо, {RASkov}!
Простите за глупость, но до меня что-то не доходит, что с этом нужно делать.
Т.е. я понимаю, что это нужно прописать в OnContextPopup у StringGrid'а. Но после этого ничего не меняется. И даже если в PopupMenu StringGrid'а указать мой Popmenu, как советовал Efir, то тоже ничего не меняется. Возможно, нужно поставить какие-то проверки, или использовать для вызова popmenu OnMouseDown?
{RASkov} (2007-08-04 02:47:00) [4]> [2] sashap (03.08.07 21:24)
> А мне нужно, чтобы заменялось стандартное popupmenu (undo/cut/copy/paste/
> delete/select all) при редактировании ячейки.
[1]+
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
Handled:=not StringGrid1.EditorMode;
end;
?
sashap (2007-08-03 21:24:00) [5]Спасибо за ответ, Efir!!! Это было быстро...
Если указать для StringGrid моё PopupMenu, то popmenu будет всплывать при нажатии в любую точку StringGrid'а. А мне нужно, чтобы заменялось стандартное popupmenu (undo/cut/copy/paste/delete/select all) при редактировании ячейки.
Но всё равно еще раз спасибо за столь быстрый ответ!!
Efir (2007-08-03 21:08:00) [6]Указать для StringGrid ваше PopupMenu.
| |
