У меня несколько вопросов.

← →
Peroon (2002-10-21 20:20) [0]

Уважаемые МАСТЕРА, у меня несколько вопросов, которые Вам, вероятно покажутся глупыми, но для меня сейчас они очень существенны. Буду признателен, если Вы уделите мне пару минут своего драгоценного времени и поможете мне разобраться с моими проблемами.

И так.
Как перетаскивать форму не за шапку а за саму форму?
У меня ситуация даже посложнее... у меня нет открытого места с формой, вся форма занята фоновым рисунком TImage. Это первый вопрос.
Вопрос второй. Как программно свернуть форму?
И последний вопрос. Как сделать так чтобы главная форма была недоступна, пока не закрыта другая форма (окно с настройками программы).

Помогите пожалуйста!

← →
MegaBass © (2002-10-21 21:01) [1]

>>И так.
>>Как перетаскивать форму не за шапку а за саму форму?
зачем?
>>Вопрос второй. Как программно свернуть форму?
ShowWindow(self.handle,SW_MINIMIZE);
>>И последний вопрос. Как сделать так чтобы главная форма была недоступна, пока не закрыта другая форма (окно с настройками программы).
Сделать вторую форму модальной.

← →
MegaBass © (2002-10-21 21:08) [2]

сори
ShowWindow(self.Handle, SW_SHOWMINIMIZED)

← →
Peroon (2002-10-21 22:08) [3]

Как-то она сворачивается не по русски...
не на панель задач, а рядышком слева... мне бы как обычно.

А за модальную форму большое спасибо!

Ответ на 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

У меня несколько вопросов. Найти похожие ветки