StringGrid的通过override CreateEditor的问题

發文回覆瀏覽次數：1199

推到 Plurk!

推到 Facebook!

StringGrid的通过override CreateEditor的问题

尚未結案

Delhpi
一般會員

發表：9
回覆：14
積分：4
註冊：2008-07-05

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-01-05 20:47:43

IP:124.160.xxx.xxx 訂閱

TStringGrid = class(Grids.TStringGrid)

procedure EditListGetItems(ACol, ARow: Integer; Items: TStrings);

procedure EditButtonClick(Sender: TObject);

end;

function TStringGrid.CreateEditor: TInplaceEdit;

begin

Result := TInplaceEditList.Create(Self);

(Result as TInplaceEditList).OnGetPickListitems := EditListGetItems;

(Result as TInplaceEditList).OnEditButtonClick := EditButtonClick;

end;

function TStringGrid.GetEditStyle(ACol, ARow: Integer): TEditStyle;

begin

if ACol = 1 then

Result := esPickList

else

Result := inherited GetEditStyle(ACol, ARow);

end;

//这样创建的Combobox，如何设置其style为csDropDownList？默认是csDropDown。

編輯記錄

Delhpi 重新編輯於 2011-01-05 05:50:43，註解無‧
Delhpi 重新編輯於 2011-01-05 05:51:52，註解無‧
Delhpi 重新編輯於 2011-01-05 05:52:25，註解無‧
Delhpi 重新編輯於 2011-01-05 19:00:12，註解無‧

Delhpi
一般會員

發表：9
回覆：14
積分：4
註冊：2008-07-05

發送簡訊給我

#2 引用回覆回覆

發表時間：2011-01-05 20:56:43

IP:124.160.xxx.xxx 訂閱

发错版面了，希望转到Delphi版

系統時間：2024-11-21 21:43:43

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！