Функция вызывает стандартный диалог СвойстваDelphi , Программа и Интерфейс , Диалоги и ФреймыФункция вызывает стандартный диалог Свойства
Автор: Babay_S { **** UBPFD *********** by delphibase.endimus.com **** >> Функция вызывает стандартный диалог "Свойства" Зависимости: uses Activex; Автор: Babay_S Copyright: мои раскопки Дата: 27 сентября 2002 г. ***************************************************** } uses Activex; function ObjectProperties(hOwner, uFlags: LongInt; sName, sParam: string): LongInt; {Функция вызывает диалог "Свойства" Параметры hOwner - хэндл родителя. uFlags - может принимать два значения - 1 для свойств принтера, 2 - для файла sName - имя принтера или файла. Если вместо имени файла указаны папка или диск, вызывается соответствующее окно свойств. Если указано "" - появляются свойства Системы. sParam - название вкладки на пропертях, которую надо показать. Если предать пустую строку или несуществующую вкладку - будет показана первая вкладка. } implementation function ObjectProperties(hOwner, uFlags: LongInt; sName, sParam: string): LongInt; var sNameW, sParamW: PWideChar; sNameL, sParamL: Integer; begin SNameL := Length(sName) + 1; sNameW := CoTaskMemAlloc(SNameL * sizeof(WideChar)); StringToWideChar(SName, SNameW, sNameL); SParamL := Length(sParam) + 1; sParamW := CoTaskMemAlloc(SParamL * sizeof(WideChar)); StringToWideChar(SParam, SParamW, sParamL); Result := SHObjectProperties(hOwner, uFlags, sNameW, sParamW); CoTaskMemFree(sNameW); CoTaskMemFree(sParamW); end; Статья Функция вызывает стандартный диалог Свойства раздела Программа и Интерфейс Диалоги и Фреймы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Диалоги и Фреймы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |