TOpenDialog.OnIncludeItem

← →
Digitman © (2005-10-26 14:48) [0]

так что там ув.коллеги говорят по поводу наипростейшего решения проблемы ?

см. D7

← →
Гаврила © (2005-10-26 14:54) [1]

Что-то оно не работает :-(
В 2005
(ofEnableIncludeNotify включил )

← →
Джо © (2005-10-26 14:56) [2]

Гм. Не пашет, вот досада (2005)

← →
Digitman © (2005-10-26 15:00) [3]

> Гаврила © (26.10.05 14:54) [1]

> Джо © (26.10.05 14:56) [2]

об чем и речь ...

и Д2005 здесь ни при чем - проблема и ранее существовала ..

ее решение я знаю - оно "через задницу".. хотелось бы проще) ..

← →
Digitman © (2005-10-26 15:05) [4]

> вот досада

не досада, а ЗАСАДА)

← →
Джо © (2005-10-26 15:10) [5]

А какое решение через з-цу?

← →
Digitman © (2005-10-26 15:17) [6]

ой, лучше не говорить) ... куча дурного обходного кода

← →
Джо © (2005-10-26 15:37) [7]

Ясно. Я так понял, the Redmondtonians added CDN_INCLUDEITEM for their own purposes, which didn"t include filtering ordinary file names.

В общем, если кто не читал вот ссылка
http://msdn.microsoft.com/msdnmag/issues/03/10/CQA/default.aspx

← →
WondeRu © (2005-10-26 15:46) [8]

Джо © (26.10.05 15:37) [7]
ага)))

имеено по этому коду примерчик сейчас и накатал:

unit OpenDialogExt; interface uses SysUtils, Classes, Dialogs, Windows, Messages, CommDlg, ShellApi, ShlObj; type TOpenDialogExt = class(TOpenDialog) private procedure WMNotify (var Msg: TMessage); message wm_notify; protected { Protected declarations } public { Public declarations } published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents("Samples", [TOpenDialogExt]); end; { TOpenDialogExt } procedure TOpenDialogExt.WMNotify(var Msg: TMessage); var a: TOFNotifyEx; begin a := TOFNotifyEx(Pointer(Msg.LParam)^); if a.hdr.code = CDN_INCLUDEITEM then begin MessageBox(0, "","",mb_ok); end; inherited; end; end.

TOpenDialog.OnIncludeItem Найти похожие ветки