Скачать: CL | DM;

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

← →
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]

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

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

---

← →
Billy ©   (2002-10-22 00:25) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c