Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Функция вызывает стандартный диалог Свойства

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Функция вызывает стандартный диалог Свойства

Автор: Babay_S
WEB-сайт: http://delphibase.endimus.com

{ **** 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.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Диалоги и Фреймы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
28.03.2024 22:45:56/0.032992124557495/0