Несколько простых (для кого-то) вопросов.

← →
APXiMEd (2007-06-27 08:06) [0]

Привет, во время написания программы для проведения тестов, я столкнулся с несколькими проблемами. Кто знает решение как минимум одной из них, пожалуйста напишите.
А вот и сами проблемы:
1. Как сделать чтобы при нажатии на кнопку окно сворачивалось? Я пишу Form.WindowState := wsMinimized, форма сворачивается но не туда куда все остальные программы, а прям на рабочий стол. Может все дело в том, что у нее BorderStyle = bsNone?
2. Как сделать, чтобы в OpenDialog можно было указать путь к папке, но не открывать её?
3. Как создавать/удалять/переименовывать каталоги и проверять существование каталогов?
4. Как сделать чтобы форма была поверх остальных окон?
5. Как развернуть форму на весь экран? (и перекрыть при этом кнопку Пуск)
6. Я несколько раз в программе пишу примерно следующий текст:
cbName.Enabled := False;
rbCheckAll.Enabled := False;
cbUseTime.Enabled := False;
btnOk.Enabled := False:
и т.д.
Т.е. у нескольких объектов меняю одно и то же св-во. Можно ли это делать по-другому, например перечислить имена объектов и указать какое общее для них св-во надо поменять?
7. Как сделать, чтобы при наведении мышкой на кнопку, курсор менялся на руку? Если в св-ве кнопки Cursor установить руку, то рука будет та которая используется в Delphi, но не та которая используется в системе.

← →
TUser © (2007-06-27 08:24) [1]

1. Нет, BorderStyle не при чем. Надо выставить форме какой-то флаг с помощью функци SetWindowLong. Какой - можно глянуть в справке по WinSDK.
2. SelectDirectory.
3. DirectoryExists и пр.
4. FormStyle
5. Top, Left = 0, Width, Height := см. в переменной Screen.
6. Ну, если лни все наследники кого-нибудь с этим свойством и расположены, допустим, на одной панели, и больше наследников этого предка там нет, то можно. Components перебрать в цикле.
7. Стандартный системный курсор можно загрузить функцией LoadCursor и установить его функцией SetCursor. А разве там лапы разные?

Несколько простых (для кого-то) вопросов. Найти похожие ветки