퀀텀DB그리드에서 자료를 입력받는데요
칼럼이 popup칼럼인데 이 칼럼에서 F1을 쳤을때 Help창을 띄울고
칼럼이 pickUp이나 LookUp이나 모두 F1 쳤을때 DropDown 할려구 합니다.
찾아보니 메소드도 없는거 같고해서 이틀 빡시게 해보다 안되서 이렇게 글 올립니다
퀀텀 그리드 사용해보신분 좀 갈켜주세요.ㅜㅜ
procedure TFM_COMIFORM1.dxDBGrid2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then
begin
// ??????????????????????????????
end;
end;
아 반갑네요. 퀀텀그리드 사용자라니.
퀀텀그리드 정말 끝네주더군요.
제가 함 대충 해봤는데 동작은 하더군요. 고쳐서 써보세요.
procedure TFM_COMIFORM1.dxDBGrid2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
if Key=VK_F1 then begin
if dxDBGrid1.Columns[dxDBGrid1.FocusedColumn] is TdxDBGridPopupColumn then
ShowMessage('도움말을 띄우자.')
else if (dxDBGrid1.Columns[dxDBGrid1.FocusedColumn] is TdxDBGridExtLookupColumn)
or
(dxDBGrid1.Columns[dxDBGrid1.FocusedColumn] is TdxDBGridPickColumn) then
begin
dxDBGrid1.ShowEditor;
keybd_event(VK_MENU, VK_MENU, 0, 0);
keybd_event(VK_DOWN, VK_DOWN, 0, 0);
keybd_event(VK_MENU, VK_MENU, KEYEVENTF_KEYUP, 0);
end;
end;
end;