您好！ 請問listbox可以被設定SetFocus？ 我的寫法如下： procedure Tsorderf.Edip1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key =$0D then if listbox.CanFocus then listbox.SetFocus; end; 以上程式無法設定 listbox 成 SetFocus 請問要如何修改？謝謝！ 林文章 林文章

------
林文章

您好 下面片段可以達到您要的需求

  if Key=$0D then
  begin
    if not ListBox1.Focused then
      ListBox1.SetFocus;
  end;

ps: 您po錯區了唷! 可以po在vcl區或misc區....

謝謝曾先生幫忙我解決了問題！ 林文章

------
林文章