VPF::придать фокус панели - Форум программистов

badaninslava

Дата 4.6.2005, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 18.2.2005

Репутация: нет
Всего: нет

Не кто не подскажет как придать фокус компоненту-наследнику панели(разрабатываю компонет)? Если кидать на панельку edit, то cобытие onMouseWheel срабатыет. Иначе- ничего не происходит. Даже табом фокус не передаётся. Мне бы хотелось что-нибудь типа TButton, но наследника от панели... и что-бы внешнего вида в фокусе не менял.

Dynamic

Дата 5.6.2005, 06:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Код

procedure TForm1.PanelClick(Sender: TObject);
begin
     SetFocusedControl(TPanel(Sender));
end;

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

badaninslava

Дата 5.6.2005, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 18.2.2005

Репутация: нет
Всего: нет

Dynamic, а как это сделать по табу?

Dynamic

Дата 6.6.2005, 06:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Добавь метод:

Код


procedure CMDialogKey(Var Msg: TWMKey);message CM_DIALOGKEY;
.......
procedure TForm1.CMDialogKey(var Msg: TWMKey);
begin
     if Msg.CharCode = VK_TAB then
     begin
      if Panel1.Focused then
         SetFocusedControl(Panel2) else
         SetFocusedControl(Panel1);
     ShowMessage(ActiveControl.Name);
     end else inherited;
end;

Только при этом переход по табу на другие контролы не будет производится, а ето не есть хорошо ;)

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

Snowy

Дата 6.6.2005, 09:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(badaninslava @ 4.6.2005, 23:12)

как придать фокус компоненту-наследнику панели

Просто выставь ему tabstop в true.
Единственная проблема останется в том, что при фокусе ты сам должен изменить внешний вид.
При получения фокуса, панель вид не меняет...

Добавлено @ 09:53
http://forum.vingrad.ru/index.php?showtopic=34769

badaninslava

Дата 6.6.2005, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 18.2.2005

Репутация: нет
Всего: нет

Спасибо большое... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »