Dlia nekotorie vk_xxx TCheckBox.OnKeyDown ne vuizivaetsia

← →
Nikolab (2002-08-28 11:38) [0]

U menia takoi problem: V tForm, na tPanel razpolojil neskolko tCheckBox. Hotel v TCheckBox. OnKeyDown sdelat:
if Key in [vk_Down,vk_Up] then begin
ActiveControl:=DBGridArch;
end;
Okozalos, sto pri najatie vk_Down,vk_Up obrabotchik OnKeyDown ne vuizivaetsia, a kto-to meniaet aktivnoi CheckBox. Etot ne forma, potomu-sto i kogda KeyPreview:=true opiat ne vuizivaetsia obrabotchik OnKeyDown.

← →
Ученик (2002-08-28 11:51) [1]

procedure CMDialogKey(var Message : TCMDialogKey); message CM_DIALOGKEY;

procedure TForm1.CMDialogKey(var Message : TCMDialogKey);
begin
if Message.CharCode in [VK_UP, VK_DOWN] then

else
inherited
end;

← →
Nikolab (2002-08-28 12:11) [2]

Bolshoe spasibo dlia otveta, bistrota i to, sto poniali moi russkii iazik.

Dlia nekotorie vk_xxx TCheckBox.OnKeyDown ne vuizivaetsia Найти похожие ветки