請教各位先進 小弟在處理條碼作業時 先利用一EDIT來處理 將所要處理的程序寫在EDIT的EXIT事件內 但這樣會造成若指標不在EDIT內便無法處理 請教有經驗的先進 再處理條碼作業十通常都如何處理 才可以做到盡量少用滑鼠跟鍵盤的效果

terrychen 你好 : 個人做法, 參考看看 : 1. 選定結束字元, 於條碼最後一個字元, 印出結束字元, 如 #13 或 #32 或 #9... 2. 程式中, Edit 當收到結束字元時, 將 Focus 設到下一個 Edit. 發表人 - Mickey 於 2003/10/13 16:08:51

Mickey版主 恕小弟愚昧 並不是很了解您的意思 可否請版主提供參考的程式碼

以下是於條碼前置控制碼(2字元),決定讀取之資料該 Assign 到哪個 LabeledEdit, 畫面設計如下: 重要程式碼如下:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;Pre,Data:string;Bingo:Boolean;
begin
   if Key<>13 then inherited
   else begin
      Pre:=copy(Edit1.text,1,2);
      Bingo:=False;
      with TWinControl(Self) do
         for i := 0 to ComponentCount-1 do
            if (Components[i] is TLabeledEdit) and
               (copy(Components[i].Name,2,2)=Pre) then begin
               if Components[i].Name = 'E4F' then
                  Data:=Edit1.text
               else
                  Data:=copy(Edit1.text,3,length(Edit1.text)-2);
               TLabeledEdit(Components[i]).Text:=TLabeledEdit(Components[i]).Text+Data;
               if assigned(TLabeledEdit(Components[i]).OnExit) then
                  TLabeledEdit(Components[i]).OnExit(TLabeledEdit(Components[i]));
               Bingo:=True;
               break;
               end;
         if not Bingo then ShowMessage('找不到對應之欄位,可能是條碼前置控制碼錯誤 !');
      Edit1.Text:='';
   end;
end;

感謝前輩的回覆 小弟已有滿意的答案了 因最近比較忙故較晚回覆 請見諒