引言: combox(如combobox, dbcombobox, dblookupcombobox...), listbox(listbox, dblistbox...) 現在的 dosmove 是使用上下鍵會跳離到最近的focus, 但我要的是利用上下鍵可以在該 combox上做上下item的選擇, 利用左右鍵則可以跳到最近的focus, 我嘗試改寫了dosmove 有關 combobx, dbcomobox 可以做到上面的功能, 但對 dblookupcombobox卻是做不到, 因為其繼承的來源不同, 似乎沒有提供 dropdown 功能, 所以可否再請版主幫幫忙, 謝謝!

引言: 您要支援的元件我已經加入, 希望沒有遺漏, 您試試看 ...

引言: 原作者: Liran Shahar 修改者: danny Tzu 元件: TDosMove v1.02g 說明: 模擬在DOS環境下使用 [Enter], 及 Up/Down移動位置. 使用: 將本元件放在 TForm上, 再設Active為True及可. DosMove v1.02 因原作者Liran Shahar 是在1998年寫的但未考慮到Grid的欄位移動, 故修改增加對Grid的支援, 由於原作者留的E-Mail已無法連絡到(請參閱DosMove.txt), 如果有要增加支援的元件, 請用E-Mail告訴我 deven_tzu.tw@yahoo.com.tw 08/02/2002 增加對 TCustomListBox(TListBox, TDBListBox ...), TDBLookupComboBox 的支援 07/07/2002 增加對 TComboBox /TDBComboBox 的支援 06/16/2001 修正在Run Time時動態設定 Active 時會發生錯誤(增加還原Events) 05/22/2001 修正設定Active = True 後, 再Open Project TForm 的 OnKeyDown/OnKeyPress Events 會沒有指定到相對應的程式碼 05/20/2001 增加TabGrid Property 可設定是否處理GRID元件 04/20/2001 修正在TForm的OnKeyDown若有寫程式碼, 不會觸發的問題. 03/02/2001 修正按Alt或Ctrl 方向鍵仍會移動的錯誤 02/20/2001 增加對Grid元件之支援 發表人 - danny 於 2002/08/02 09:49:29

引言: 08/24/2002 增加可設定 Ctrl 或 Alt 1..9 (` 循環)切換 TPageControl 頁

引言:

引言: 08/24/2002 增加可設定 Ctrl 或 Alt 1..9 (` 循環)切換 TPageControl 頁

danny 版主你好! 我試用了TPageControl的功能, 似乎沒有作用, 我再用debug方式去tracer, 發現有一個問題, 因為 ctrl, alt 等也是一個key, 所以當我按下 ctrl 時, 就觸發了 keydown 事件, 程式就會跑到這列 if (PageControl <> nil) and (FSelectPageOptions = Shift) then begin end; 這時候我也沒有機會可以再按下 1~9 或 ~, 所以結果是 pagecontrol 不會換頁, 不知版主是否有測到這個問題 另外, 上次版主提供的 1.02g 有關 dbcombox移動的方式, 我有做了部份的修正, 現在已經可以利用方向鍵來控制, 上下鍵控制上下一個元件的移動, 左右鍵控制combobox或listbox item 的移動, 我想等pagecontrol這部份可以work的時候, 一併修正上傳回去, 不知意下如何?

引言: 我試了一下並沒有您說的問題耶! 因為有增加一個 property PageControl 不知道您是否有設定 ? 至於 dbcombox, combobox 及 listbox item 的控制, 我記得 1.2h 版已經有加入了 ... 如果有必要, 請您將您修改的 DOSMOVE eMail 給我 deven_tzu.tw@yahoo.com.tw 因為目前被一個 Project 折磨中, 原來新版的 DOSMOVE 要修正可以使用在 InfoPower 元件組中及增加可以改變目前的元件 Color 的功能, 現在也只能等我忙完了再說了, 真的很抱歉 !

引言: danny 版主! 我使用 DOSMOVE 1.2H, 目前出現一個情況 1.DOSMOVE 設定 moEnter,moUPDN 兩組 2.在一個 TDBEdit Object上的 OnKeyPress(或OnKeyDown,Up) Event中我設定了 if key=#13 then ...... 結果問題出現了 在 dosmove.active=true時, 當到了此TDBedit上按enter時, cursor往下一個Ojbect去了, 而 keyPress部份被忽略了, 請問這一部份要如何修正? 謝謝!

procedure TDosMove.NewKeyPress(Sender : TObject;var Key : char);
begin
  // Call owner OnKeyPress if it's assigned
  if Assigned(FOwnerKeyPress) then
    FOwnerKeyPress(Sender,Key);      // Handle 'Enter' key that makes Edits beep
  if FActive then
  begin
    if FEditNoBeep and
       FLastWasEdit and
       (Key = #13) then
      Key := #0;        if FIsTabGrid then
    begin
      FIsTabGrid := False;
      Key := #0;
    end;
  end; // if FActive ...    end; // NewKeyPress

if ActiveControl = DBEdit1 then
  ShowMessage('Key:'   FormatFloat('000', Ord(Key)));

引言: 不知那位先進: 已將DOSmove 和Woll2Woll InfoPower相衝的問題解決了! 已知Dosmove 1.02 未修改版不會相衝! (onkeydown的event會消失不見) 其他版本都會! 可以分享一下心得嗎?? 或提供Dosmove 修改版. 謝謝!

引言: 真的很抱歉! 郁瑋兄之前有給我改好的 DOSMOVE for InfoPower 但一直沒時間測試(主要是我也沒有InfoPower), 以下是我將其改過部份整合至新版 DOSMOVE 中, 您再測試看看... http://delphi.ktop.com.tw/loadfile.php?TOPICID=7811241&CC=174699 如果可以用或有問題請告知我一下, 等到沒問題了我再正式 update 進 DOSMOVE 中