| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
У меня несколько вопросов. [D5, WinXP]
Peroon © (2002-10-21 20:20:00)Уважаемые МАСТЕРА, у меня несколько вопросов, которые Вам, вероятно покажутся глупыми, но для меня сейчас они очень существенны. Буду признателен, если Вы уделите мне пару минут своего драгоценного времени и поможете мне разобраться с моими проблемами.
И так.
Как перетаскивать форму не за шапку а за саму форму?
У меня ситуация даже посложнее... у меня нет открытого места с формой, вся форма занята фоновым рисунком TImage. Это первый вопрос.
Вопрос второй. Как программно свернуть форму?
И последний вопрос. Как сделать так чтобы главная форма была недоступна, пока не закрыта другая форма (окно с настройками программы).
Помогите пожалуйста!
Billy (2002-10-22 00:25:00) [1]Ответ на 1-й вопрос:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
Как сам понимаешь, эта процедура вызывается в обработке события MouseDown фонового Image.
2.Application.Minimize
Peroon (2002-10-21 22:08:00) [2]Как-то она сворачивается не по русски...
не на панель задач, а рядышком слева... мне бы как обычно.
А за модальную форму большое спасибо!
MegaBass (2002-10-21 21:08:00) [3]сори
ShowWindow(self.Handle, SW_SHOWMINIMIZED)
MegaBass (2002-10-21 21:01:00) [4]>>И так.
>>Как перетаскивать форму не за шапку а за саму форму?
зачем?
>>Вопрос второй. Как программно свернуть форму?
ShowWindow(self.handle,SW_MINIMIZE);
>>И последний вопрос. Как сделать так чтобы главная форма была недоступна, пока не закрыта другая форма (окно с настройками программы).
Сделать вторую форму модальной.
| |
