질문1) ActiveForm위에 단순히 MaskEdit Component만 올려 놓고
HTML에서는 Script는 작성하지 않고 HTML Tag를 이용해 몇개의 Control을
만든후 Tab키만을 이용해 Focus를 이동하려하면 ActiveForm으로 Focus를 이동
한 후에 Focus를 빠져나오지 못하고 있습니다.
우째 이런일이.....
질문2) 이번에는 ActiveForm이 아닌 MaskEdit를 이용한 ActiveX Control을
만들었습니다.
그래서 OnSetFocus, OnKillFocus Event Interface를 만드려 하는데
잘 안되네요.
어떻게 해야 하나요.
아래와 같이 했거든요.
procedure TToinbWMaskEdit.InitializeControl;
begin
FDelphiControl := Control as TMaskEdit;
FDelphiControl.OnChange := ChangeEvent;
FDelphiControl.OnClick := ClickEvent;
FDelphiControl.OnDblClick := DblClickEvent;
FDelphiControl.OnKeyPress := KeyPressEvent;
// 이 부분을 추가했습니다.
FDelphiControl.OnEnter := EventEnter;
end;
// 이 부분도 추가했습니다.
procedure EventEnter(Sendre: TObject);
begin
if FEvent <> nil then FEvnet.OnSetFocus;
end;
위에서 EventEnter procedure 부분을 전혀 거치지 않습니다.