名前
題名
▼ Mr.XRAYさん > plFileDialog.pas の Execute に virtual 指令を追加してください． > > function Execute:Boolean; > ↓ > function Execute:Boolean; virtual; > > 動作確認に使用したコード > 動作確認環境 Windows 7 U64(SP1) + Delphi XE Pro > > unit Unit1; > > interface > > uses > Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, > Dialogs, StdCtrls, plFileDialog; > > type > TMyBrowseFolder = class(TplBrowseFolder) > public > function Execute: Boolean; override; > end; > > TForm1 = class(TForm) > Button1: TButton; > procedure Button1Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > { TForm1 } > > procedure TForm1.Button1Click(Sender: TObject); > var > Compo : TMyBrowseFolder; > begin > Compo := TMyBrowseFolder.Create(Self); > compo.Execute; > end; > > { TMyBrowseFolder } > > function TMyBrowseFolder.Execute: Boolean; > begin > Result := inherited; > end; > > end. >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link