各位大大 我在這篇文章裡面看到了[...]的問題 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25442 但是好像都沒有提供程式碼說明 我真的很想知道那個小button該怎麼做? 有人願意提供簡單的程式碼說明嗎?

所有的Button都可以做..在Button.caption面設定為[...] 至於開啟檔案..放一個OpenDialog叫做OpenDialog1..

beginprocedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if OpenDialog1.Execute then
  Edit1.Text:=OpenDialog1.FileName;
  else
  SHOWEMSSAGE('開檔失敗!!!');
end;

PS:我是用Delphi語法..BCB你可能要自己轉一下.. Edit1.Text:=OpenDialog1.FileName; 好像改這樣 Edit1.Text->OpenDialog1.FileName; 不知道對不對.. TRY TYR SEE.. 發表人 - chih 於 2003/01/29 08:32:33

//BCB Edit1->Text = OpenDialog1->FileName;

Dear AdaWu888,    我把樓上chih兄的翻譯如下:

      if (OpenDialog1->Execute())
     Edit1->Text = OpenDialog1->FileName;
  else
     ShowMessage("開檔失敗!!");

另外, 你可以看一下Help裡, OpenDialog, FileName, Back, Next example 應該對你會有幫助。

引言: 各位大大 我在這篇文章裡面看到了[...]的問題 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25442 但是好像都沒有提供程式碼說明 我真的很想知道那個小button該怎麼做? 有人願意提供簡單的程式碼說明嗎? < face="Verdana, Arial, Helvetica"> AdaWu888 你好: 假設現在有一個 TMyPanel 元件，繼承於 TPanel 元件 而我們為 TMyPanel 元件新增了一個 property "FileName" "FileName" 是一個在 design time 就可以被設定的 property 因此會顯示在 Ojbect Inspector 中，而且旁邊會有 [...] 的小 button 以下是 TMyPanel 元件的範例程式碼 < class="code"> //--------------------------------------------------------------------------- // MyPanel.h #ifndef MyPanelH #define MyPanelH #include "SysUtils.hpp" #include "Classes.hpp" #include "Controls.hpp" #include "ExtCtrls.hpp" #include "DesignEditors.hpp" #include "TypInfo.hpp" #include "Dialogs.hpp" class TMyPanelFileNameProperty : public TStringProperty { public: TPropertyAttributes __fastcall GetAttributes() { return TPropertyAttributes()Execute()) { Value=dlg->FileName; } delete dlg; } }; class PACKAGE TMyPanel : public TPanel { private: String FFileName; void __fastcall SetFileName(String value); protected: public: __fastcall TMyPanel(TComponent* Owner); __published: __property String FileName={read=FFileName, write=SetFileName}; }; #endif //--------------------------------------------------------------------------- // MyPanel.cpp #include #pragma hdrstop #include "MyPanel.h" #pragma package(smart_init) //--------------------------------------------------------------------------- // ValidCtrCheck is used to assure that the components created do not have // any pure virtual functions. // static inline void ValidCtrCheck(TMyPanel *) { new TMyPanel(NULL); } __fastcall TMyPanel::TMyPanel(TComponent* Owner) : TPanel(Owner) { } void __fastcall TMyPanel::SetFileName(String value) { FFileName=value; } namespace Mypanel { void __fastcall PACKAGE Register() { TComponentClass classes[1] = {__classid(TMyPanel)}; RegisterComponents("Samples", classes, 0); PPropInfo PropInfo=GetPropInfo(__typeinfo(TMyPanel), "FileName"); RegisterPropertyEditor(*(PropInfo->PropType), __classid(TMyPanel), "FileName", __classid(TMyPanelFileNameProperty)); } } -- Enjoy Researching & Developing --

我想要知道一件事, 根據 William 兄的說法, 在 Delphi 中只要把 FileName 的 type 設為 TFileName 就可以使用內建的 property editor 得到一樣的效果, 可是我在 BCB6 中試不出來, 請問有人試出來嗎. Jesse Chan

------
Jesse Chan

謝謝各位大大的相助 >