ListView 可編輯
ListView本不可以直接編輯,一般是使用模擬一個輸入物件,來進行編輯,然後再儲存回去。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if ListView1.SelCount < 1 then Exit;
Edit1.Left := ListView1.Left + ListView1.Column[0].Width + 5;
Edit1.Top := ListView1.Top + ListView1.Selected.Top;
Edit1.Text := ListView1.Selected.SubItems.Strings[0];
Edit1.Visible := True;
Edit1.SetFocus;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
ListView1.Selected.SubItems.Strings[0] := Edit1.Text;
Edit1.Visible := False;
end;
下面就是介紹了這個方法 用的不是C# 但思路可以借鑑
[@more@]unit Unit1;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if ListView1.SelCount < 1 then Exit;
Edit1.Left := ListView1.Left + ListView1.Column[0].Width + 5;
Edit1.Top := ListView1.Top + ListView1.Selected.Top;
Edit1.Text := ListView1.Selected.SubItems.Strings[0];
Edit1.Visible := True;
Edit1.SetFocus;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
ListView1.Selected.SubItems.Strings[0] := Edit1.Text;
Edit1.Visible := False;
end;
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/8780503/viewspace-1033627/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 可編輯選擇、刪除條目的ListViewView
- (十一)可編輯表格EditorGridPanel
- element封裝可編輯表格元件封裝元件
- 如何實現div可編輯效果
- Dynamics 365 可編輯子網格的欄位禁用不可編輯
- vue+iview 實現可編輯表格VueView
- 分享一款可編輯本地電腦檔案的線上編輯器
- 金山文件怎麼設定編輯許可權 金山文件線上編輯許可權設定
- SAP CRM WebClient UI Text 可編輯與否的控制邏輯WebclientUI
- js input 不可編輯可傳值設定JS
- 截圖表格轉可編輯Word文字教程
- 動態控制SAP CRM附件的可編輯性
- 封裝Vue Element的可編輯table表格元件封裝Vue元件
- 【譯】使用可編輯表示式改進除錯除錯
- Flutter可滾動Widgets-ListViewFlutterView
- js實現的指定區域可編輯高亮效果JS
- 【留言板】可編輯輸入框操作總結
- 怎樣使網頁中的元素可編輯?? (轉)網頁
- CRM和C4C product category hierarchy的可編輯性控制邏輯Go
- 雲脈文件識別:輕輕一掃,可識別可編輯可分享
- vue-orgchart: 可編輯,可匯出JSON的樹形組織圖VueGCJSON
- 編輯
- 基於Ant Design的可編輯Tree的實現
- 前端列表可編輯的實現與最佳化(下)前端
- 強大好用的圖片編輯效果實現,支援塗鴉、編輯、馬賽克,可撤銷和恢復
- PNG圖片怎樣轉換成可編輯的Word文件
- gantt甘特圖可拖拽、編輯(vue、react都可用 highcharts)VueReact
- 使用jQuery和Pure.CSS建立一個可編輯的表格jQueryCSS
- nano 編輯NaN
- laravel-admin的form表單在編輯時能否隱藏初始值,但是是可編輯修改狀態LaravelORM
- 編寫業務邏輯程式碼,清晰可維護是很重要的
- 可愛的演算法書——《啊哈!演算法》編輯的話演算法
- 編輯距離及編輯距離演算法演算法
- 又一編輯神器-百度編輯器-Ueditor
- css文字編輯CSS
- LaTeX 公式編輯公式
- 公式編輯器公式
- vim編輯器