在Delphi XE中如何使用TComboBox作為單元格編輯器

在Delphi XE中如何使用TComboBox作為單元格編輯器，很多新手對此不是很清楚，為了幫助大家解決這個難題，下面小編將為大家詳細講解，有這方面需求的人可以來學習下，希望你能有所收獲。

需要進行以下幾步：

1. 創建StringGrid，在OnSelectCell事件中顯示ComboBox覆蓋單元格作為編輯器

2. 創建ComboBox，將其Parent設置為StringGrid，并將StringGrid的行高設置為ComboBox的高度

3. 處理ComboBox的OnChange事件，修改StringGrid單元格的值

4. 處理ComboBox的OnExit事件，隱藏ComboBox

5. 創建新單元，定義同名類TStringGrid繼承Vcl.Grids.TStringGrid并重寫其WMCommand方法

6. 在使用StringGrid的單元頭部引用新單元，必須放在Vcl.Grids之后

以下是示例代碼：

單元1：

點擊(此處)折疊或打開

1. unit Unit1;
   

2. 
   

3. interface
   

4. 
   

5. uses
   

6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
   

7.   Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.Grids,
   

8.   //必須將重定義的TStringGrid單元引用放置在Vcl.Grids之后
   

9.   Unit2;
   

10. 
    

11. type
    

12.   TForm1 = class(TForm)
    

13.     StringGrid1: TStringGrid;
    

14.     procedure FormCreate(Sender: TObject);
    

15.     procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
    

16.       var CanSelect: Boolean);
    

17.   private
    

18.     FComboBox: TComboBox;
    

19.     procedure OnComboBoxChange(Sender: TObject);
    

20.     procedure OnComboBoxExit(Sender: TObject);
    

21.     { Private declarations }
    

22.   public
    

23.     { Public declarations }
    

24.   end;
    

25. 
    

26. var
    

27.   Form1: TForm1;
    

28. 
    

29. implementation
    

30. 
    

31. {$R *.dfm}
    

32. 
    

33. procedure TForm1.FormCreate(Sender: TObject);
    

34. begin
    

35.   //創建ComboBox，也可以直接拖拽到Form
    

36.   //此處只需要設置Parent := StringGrid1
    

37.   FComboBox := TComboBox.Create(StringGrid1);
    

38.   FComboBox.Parent := StringGrid1;
    

39.   FComboBox.Items.Add('Item1');
    

40.   FComboBox.Items.Add('Item2');
    

41.   FComboBox.OnChange := OnComboBoxChange;
    

42.   FComboBox.OnExit := OnComboBoxExit;
    

43.   FComboBox.Visible := False;
    

44.   //ComboBox高度是固定不能改變的
    

45.   //因此設置StringGrid1的行高與ComboBox高度一致
    

46.   StringGrid1.DefaultRowHeight := FComboBox.Height;
    

47. end;
    

48. 
    

49. procedure TForm1.OnComboBoxChange(Sender: TObject);
    

50. begin
    

51.   StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := FComboBox.Text;
    

52. end;
    

53. 
    

54. procedure TForm1.OnComboBoxExit(Sender: TObject);
    

55. begin
    

56.   FComboBox.Visible := False;
    

57. end;
    

58. 
    

59. procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
    

60.   var CanSelect: Boolean);
    

61. var
    

62.   ARect: TRect;
    

63. begin
    

64.   //示例代碼僅在第二列中使用ComboBox作為編輯器
    

65.   if CanSelect and (ACol = 1) then
    

66.   begin
    

67.     FComboBox.ItemIndex := FComboBox.Items.IndexOf
    

68.       (StringGrid1.Cells[ACol, ARow]);
    

69.     //使ComboBox顯示并覆蓋住選中單元格
    

70.     ARect := StringGrid1.CellRect(ACol, ARow);
    

71.     FComboBox.Left := ARect.Left;
    

72.     FComboBox.Top := ARect.Top;
    

73.     FComboBox.Width := ARect.Right - ARect.Left;
    

74.     FComboBox.Visible := True;
    

75.     FComboBox.SetFocus;
    

76.   end;
    

77. end;
    

78. 
    

79. end.

單元2：

點擊(此處)折疊或打開

1. unit Unit2;
   

2. 
   

3. interface
   

4. 
   

5. uses
   

6.   Vcl.Grids, Winapi.Windows, Winapi.Messages, Vcl.Controls;
   

7. 
   

8. type
   

9.   TStringGrid = class(Vcl.Grids.TStringGrid)
   

10.   private
    

11.     procedure WMCommand(var AMessage: TWMCommand); message WM_COMMAND;
    

12.   end;
    

13. 
    

14. implementation
    

15. 
    

16. { TStringGrid }
    

17. 
    

18. procedure TStringGrid.WMCommand(var AMessage: TWMCommand);
    

19. begin
    

20.   //如果當前是StringGrid內置編輯框，調用父類方法
    

21.   //否則向控件發送CN_COMMAND事件
    

22.   if (InplaceEditor <> nil) and (AMessage.Ctl = InplaceEditor.Handle) then
    

23.     inherited
    

24.   else if AMessage.Ctl <> 0 then
    

25.   begin
    

26.     AMessage.Result := SendMessage(AMessage.Ctl, CN_COMMAND,
    

27.       TMessage(AMessage).WParam, TMessage(AMessage).LParam);
    

28.   end;
    

29. end;
    

30. 
    

31. end.

說明：

1. TStringGrid只支持內置的輸入框做為單元格編輯器，所以只好放置一個ComboBox并覆蓋住要編輯的單元格

2. TStringGrid祖先類TCustomGrid在WMCommand方法中限制了只處理InplaceEditor，所以需要重寫這個方法

也可以繼承TStringGrid而不是使用同名類，再全部動態創建，但是太麻煩而且基本沒什么區別

看完上述內容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注億速云行業資訊頻道，感謝您對億速云的支持。