Скачать: CL | DM;

Замена 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?

---

← →
begin...end ©   (2007-08-04 11:34) [5]

type
 TExStringGrid = class(TStringGrid)

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c