Замена popmenu в tstringgrid е

← →
sashap (2007-08-03 20:54) [0]

Добрый день!
Скажите, пожалуйста, как заменить стандартное Popmenu (undo/cut/copy/paste) в tstringgrid"е при редактировании ячейки на новое?

← →
Efir © (2007-08-03 21:08) [1]

Указать для StringGrid ваше PopupMenu.

← →
sashap (2007-08-03 21:24) [2]

Спасибо за ответ, Efir!!! Это было быстро...
Если указать для StringGrid моё PopupMenu, то popmenu будет всплывать при нажатии в любую точку StringGrid"а. А мне нужно, чтобы заменялось стандартное popupmenu (undo/cut/copy/paste/delete/select all) при редактировании ячейки.

Но всё равно еще раз спасибо за столь быстрый ответ!!

← →
{RASkov} © (2007-08-04 02:47) [3]

> [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-04 10:09) [4]

Спасибо, {RASkov}!
Простите за глупость, но до меня что-то не доходит, что с этом нужно делать.
Т.е. я понимаю, что это нужно прописать в OnContextPopup у StringGrid"а. Но после этого ничего не меняется. И даже если в PopupMenu StringGrid"а указать мой Popmenu, как советовал Efir, то тоже ничего не меняется. Возможно, нужно поставить какие-то проверки, или использовать для вызова popmenu OnMouseDown?

type
TExStringGrid = class(TStringGrid)

TEdit(TExStringGrid(StringGrid).InplaceEditor).PopupMenu := MyPopupMenu

← →
sashap (2007-08-04 17:31) [6]

Благодарю, begin...end! Это то - что было нужно!!!

Замена popmenu в tstringgrid е Найти похожие ветки