全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1047
推到 Plurk!
推到 Facebook!

請教各位先進 如何刪除ListBox裡的項目 (滑鼠點選 在點擊刪除按扭)

答題得分者是:s92405054
nba2005mt
一般會員


發表:5
回覆:9
積分:2
註冊:2012-09-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-09-25 16:44:39 IP:125.224.xxx.xxx 訂閱
請教各位先進  
我製作了兩個按鈕
開啟檔案 刪除檔案
檔案開啟 檔案名稱會顯示在ListBox裡面
刪除檔案時 可以用滑鼠點選 再按下刪除按鈕刪除 該如何做呢?

以下是 開啟檔案的 程式碼
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Name;
OpenDialog1->Filter = "CNC files (*.cnc)";
if(OpenDialog1->Execute())
{
RichEdit1->Lines->LoadFromFile( OpenDialog1->FileName );
FileName = OpenDialog1->FileName;
AnsiString FileName = ChangeFileExt(ExtractFileName(OpenDialog1->FileName), "");
ListBox1->Items->Add(FileName);
}
}

另外 再請教個問題
一樣滑鼠點選 ListBox 裡面的Item(其中之一)
在設一個按鈕 讓檔案內容顯示在RichEdit裡面呢?
編輯記錄
nba2005mt 重新編輯於 2012-09-25 02:53:06, 註解 無‧
s92405054
高階會員


發表:7
回覆:49
積分:101
註冊:2009-04-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-09-25 17:43:13 IP:60.248.xxx.xxx 訂閱
ListBox1->Items->Delete(ListBox1->ItemIndex);   
===================引 用 nba2005mt 文 章===================
請教各位先進
我製作了兩個按鈕
開啟檔案 刪除檔案
檔案開啟 檔案名稱會顯示在ListBox裡面
刪除檔案時 可以用滑鼠點選 再按下刪除按鈕刪除 該如何做呢?

以下是 開啟檔案的 程式碼
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString Name;
OpenDialog1->Filter = "CNC files (*.cnc)";
if(OpenDialog1->Execute())
{
RichEdit1->Lines->LoadFromFile( OpenDialog1->FileName );
FileName = OpenDialog1->FileName;
AnsiString FileName = ChangeFileExt(ExtractFileName(OpenDialog1->FileName), "");
ListBox1->Items->Add(FileName);
}
}

另外 再請教個問題
一樣滑鼠點選 ListBox 裡面的Item(其中之一)
在設一個按鈕 讓檔案內容顯示在RichEdit裡面呢?
系統時間:2017-10-24 15:51:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!