переход между контролами по Enter

← →
Uli (2005-02-24 14:03) [0]

Подскажите, пожалуйста, каким образом в KOL можно организовать переход по Enter как по TAB?

← →
ECM © (2005-02-24 14:45) [1]

function TMainForm.KOLApplet1Message(var Msg: tagMSG; var Rslt: Integer): Boolean; begin if Msg.message = WM_KEYDOWN then begin if Msg.wParam = VK_RETURN then begin Msg.wParam := VK_TAB; // На всякий случай подправим Скан-код. Хотя и без этого работет :) Msg.lParam := (Msg.lParam and (not $ff0000)) or $f0000; end; end; end;

З.Ы.
Забыл :)
function TMainForm.KOLApplet1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
...
Result := FALSE;
end;

переход между контролами по Enter Найти похожие ветки