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

Отмена Tab в DBGrid на определённую колонку   Найти похожие ветки 

← →
Grey   (2003-02-24 13:12) [0]

Мастера, подскажите пожалуйста, как в DBGrid отменить действие клавиши Tab на определённую колонку, т.е. как в полях read only , чтобы не заходило в данную колонку, а перескакивало на следующую.

---

← →
Grey   (2003-02-24 15:00) [1]

Что , никто не знает , что-ли ?

---

← →
Grey   (2003-02-24 16:27) [2]

Тогда может кто-нибудь знает как использовать TabStops ?
а то пишу Grid.TabStops[6]:=false; , а компилятор выдаёт ошибку , что неизвестный идентификатор , хотя в хелпе написано, что можно так делать

---

← →
Соловьев ©   (2003-02-24 16:42) [3]

проверь, что елс колонку не надо редактировать, то перейти на следующую. Как? наверное сэмулируй нажатие Tab...

---

← →
Grey   (2003-02-24 17:41) [4]

> Соловьев ©
в том то и дело, что колонку можно редактировать, так бы я просто поставил read only и всё бы работало

надо чтобы по tab не входило в колонку
так что никто не использовал TabStops?

---

← →
Соловьев ©   (2003-02-24 18:27) [5]

сделай read only:
if Column.FieldName="NO_EDIT" then Grid.ReadOnly := true
else Grid.ReadOnly := true;

---

← →
ermserg ©   (2003-02-24 18:30) [6]

U TDBGrid net svoystva TabStops.

---

← →
ermserg ©   (2003-02-24 18:32) [7]

to Solovyov: a kogda Grid.ReadOnly = false? :)

---

← →
Соловьев ©   (2003-02-24 18:36) [8]

:)))
по умолчанию в else вроде

---

← →
ermserg ©   (2003-02-24 18:44) [9]

to Grey:
Postav flag dgTabs v false (DBGrid.Options), v sobitii OnKeyDown otlavlivay Tab i Alt+Tab i peremeschay focus na kakuyu hochesh column.

---

← →
Grey   (2003-02-24 18:47) [10]

>Соловьев ©
так мне не надо read only
надо чтобы была возможность редактировать колонку, но по tab чтобы в неё не входило

---

← →
Zz_   (2003-02-24 18:52) [11]

tab нельзя а мышкой можно. так что-ли ?

---

← →
Grey   (2003-02-24 18:52) [12]

>ermserg ©
TabStops есть в TCustomGrid, а TCustomDBGrid наследуется из TCustomGrid

в OnKeyDown конечно можно написать обработчик нажатия, но неужели нельзя сделать это стандартными средствами ?

---

← →
Grey   (2003-02-24 18:53) [13]

> Zz_
точно так

---

← →
Zz_   (2003-02-24 18:58) [14]

Что-то типа этого? Не проверял
Не помню как TAB. VK_TAB ???

procedure Tf.gridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if(Key=VK_RIGHT)then begin
//Нельзя 2
if(grid.SelectedIndex = 1)then begin
Key := 0;
grid.SelectedIndex := 3;
end;
end else
if(Key=VK_LEFT)then begin
//Нельзя 2
if(grid.SelectedIndex = 3)then begin
Key := 0;
grid.SelectedIndex := 1;
end;

---

← →
Grey   (2003-02-24 19:02) [15]

>Zz_
да, чтото типа этого , только с Tab
да, VK_TAB

---

← →
ermserg ©   (2003-02-24 19:17) [16]

to Grey:
TabStops - protected. Mozhesh poluchit k nemu dostup is svoyey programmi esli sozdash naslednika TDBGrid v svoyom module.

---

← →
ermserg ©   (2003-02-24 19:18) [17]

Ya imel vvidu sozdash class - naslednik ot TDBGrid.

---

← →
Grey   (2003-02-25 12:22) [18]

как унаследовать свойство TabStops в наследнике , чтобы можно было написать Grid.TabStops[6]:=false;
компонента - наследник TCustomGrid

---

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

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



Память: 0.48 MB
Время: 0.016 c