在DelphiXE中如何使用TComboBox作為單元格編輯器-創(chuàng)新互聯(lián)

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

創(chuàng)新互聯(lián)2013年開(kāi)創(chuàng)至今，是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站建設(shè)、網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元常州做網(wǎng)站,已為上家服務(wù),為常州各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792

需要進(jìn)行以下幾步：

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

  2. 創(chuàng)建ComboBox，將其Parent設(shè)置為StringGrid，并將StringGrid的行高設(shè)置為ComboBox的高度

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

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

  5. 創(chuàng)建新單元，定義同名類(lèi)TStringGrid繼承Vcl.Grids.TStringGrid并重寫(xiě)其WMCommand方法

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


以下是示例代碼：

單元1：

點(diǎn)擊(此處)折疊或打開(kāi)

  1. unit Unit1;

  3. interface

  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;

  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;

  26. var

  27.   Form1: TForm1;

  29. implementation

  31. {$R *.dfm}

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

  34. begin

  35.   //創(chuàng)建ComboBox，也可以直接拖拽到Form

  36.   //此處只需要設(shè)置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.   //因此設(shè)置StringGrid1的行高與ComboBox高度一致

  46.   StringGrid1.DefaultRowHeight := FComboBox.Height;

  47. end;

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

  50. begin

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

  52. end;

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

  55. begin

  56.   FComboBox.Visible := False;

  57. end;

  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;

  79. end.


單元2：

點(diǎn)擊(此處)折疊或打開(kāi)

  1. unit Unit2;

  3. interface

  5. uses

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

  8. type

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

  10.   private

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

  12.   end;

  14. implementation

  16. { TStringGrid }

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

  19. begin

  20.   //如果當(dāng)前是StringGrid內(nèi)置編輯框，調(diào)用父類(lèi)方法

  21.   //否則向控件發(fā)送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;

  31. end.


說(shuō)明：

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

  2. TStringGrid祖先類(lèi)TCustomGrid在WMCommand方法中限制了只處理InplaceEditor，所以需要重寫(xiě)這個(gè)方法

也可以繼承TStringGrid而不是使用同名類(lèi)，再全部動(dòng)態(tài)創(chuàng)建，但是太麻煩而且基本沒(méi)什么區(qū)別

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注創(chuàng)新互聯(lián)-成都網(wǎng)站建設(shè)公司行業(yè)資訊頻道，感謝您對(duì)創(chuàng)新互聯(lián)的支持。

網(wǎng)站標(biāo)題：在DelphiXE中如何使用TComboBox作為單元格編輯器-創(chuàng)新互聯(lián)
文章路徑：http://muchs.cn/article48/heghp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、軟件開(kāi)發(fā)、網(wǎng)站收錄、全網(wǎng)營(yíng)銷(xiāo)推廣、移動(dòng)網(wǎng)站建設(shè)、App開(kāi)發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)

外貿(mào)網(wǎng)站制作