Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: CL | DM;

Вниз

Как менять фокус ввода при открытии формы разными клавишами ?   Найти похожие ветки 

 
smaller   (2007-06-28 20:00) [0]

Здравствуте. Помогите, пожалуйста разобраться.
Мне нужно, чтоб при нажатии на разные клавиши открылось одна и та
же форма, но фокус ввода устанавливался на разные контроли.
Для чего при нажатии клавиши открываю форму
Form.ShowModal и запоминаю код клавиши в переменной PushedKey
В onShow формы помещаю
case PushedKey of    
Form.ActiveControl:=
....
Однако такая конструкция  не срабатывает -фокус устанавливается правильно, только если закрыть форму и второй раз нажать на ту же клавишу


 
Правильный Вася   (2007-06-28 20:10) [1]

код покажи


 
smaller   (2007-06-28 20:27) [2]

procedure TMainW.ApplicationEvents1ShortCut(var Msg: TWMKey;
 var Handled: Boolean);
begin            
   with CommentW do
    case Msg.CharCode of
    49 : begin
           ShoWModal;
           KeyCode_:= 49;
          end;
    50: begin
           ShoWModal;
           KeyCode_:= 50;
         end;
    end;
end;

procedure TCommentW.FormShow(Sender: TObject);
begin
 if KeyCode_= 49 then ActiveControl:= ComboBox_1;
 if KeyCode_= 50 then ActiveControl:= ComboBox_2;
end;


 
Anatoly Podgoretsky ©   (2007-06-28 20:45) [3]

> smaller  (28.06.2007 20:27:02)  [2]

Ну и чего ты хотел, раз делаешь это после ShoWModal


 
smaller   (2007-06-28 20:54) [4]

Понял, спасибо.



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

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
4-1171368306
DVM
2007-02-13 15:05
2007.07.22
CloseHandle вызывает исключения?


3-1176979672
Сергей М.
2007-04-19 14:47
2007.07.22
VFPOLEDB 9.0 SP1 и REINDEX command


3-1176900325
DmitrichJ
2007-04-18 16:45
2007.07.22
Большие картинки в БД


15-1182453352
ProgRAMmer Dimonych
2007-06-21 23:15
2007.07.22
И снова DirectX9


15-1182669067
Чародей
2007-06-24 11:11
2007.07.22
Подсчет трафика