![](/img/smilies/icon_sad.gif)
Единственное, что изменилось, так это добавление точки OnExecuteEnd, которая происходит после выбора всех файлов при множественном выборе и Select = Multi.
Сделал это, чтобы можно было использовать один компонент вместо двух или трёх для получения того-же "эффекта".
Схема:
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(Button,13926934,231,133)
{
Left=145
Top=85
Width=130
Caption="Test ODialog"
link(onClick,11902614:doExecute,[(303,139)(303,153)])
}
Add(ODialog,11902614,343,147)
{
FileName=""
Select=1
Point(onExecuteEnd)
link(onExecute,15869480:doMessage,[(397,153)(397,132)])
link(onExecuteEnd,6420839:doMessage,[(396,167)(396,185)])
}
Add(Message,15869480,420,126)
{
Caption="Файл"
}
Add(Message,6420839,417,179)
{
Message="Конец файлов"
}
--- Добавлено в 2022-01-22 13:20:08
Новая версия модификации, теперь onExecuteEnd происходит даже если только один файл был выбран
Редактировалось 3 раз(а), последний 2022-01-22 13:20:08