Автоматически закрыть TCommonDialog

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

{

It is possible to close a common dialog shown by TCommonDialog.Execute

(or its overriddens) method while it is visible and application handles messages.

The solution is:

Es ist moglich einen TCommonDialog der mit TCommonDialog.Execute geoffnet wurde,

automatisch zu schliessen wahrend er sichtbar ist. Die Losung ist:

}

SendMessage(GetParent(OpenDialog1.Handle), WM_SYSCOMMAND, SC_CLOSE, 0);

{/codecitation}

Добавить комментарий