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

Зменение размера окна без отображения его содержимого.   Найти похожие ветки 

← →
Alexandr B.   (2003-02-21 17:14) [0]

Здраствуйте.
Происходит сложые расчеты и отрисовка изображения в зависимости от размера формы.
Все это повешенно на событие изменения размера формы.
Есть ли возможность отключить отображение содержимого формы при изменения размера моей формы? То есть что бы при измении размера оно производилось в виде прямоугольника, как в windows 95.

---

← →
Alexandr B.   (2003-02-21 17:16) [1]

Возможно есть люди которые реализовали сие, скажем с использованим SystemParametersInfo и путем перехвата сообщений.

---

← →
Alex44   (2003-02-21 23:17) [2]

WM_ENTERSIZEMOVE WM_PAINT WM_NCPAINT WM_EXITSIZEMOVE

---

← →
Alexandr B.   (2003-02-22 10:44) [3]

Спасибо, к сожелению с WM_ENTERSIZEMOVE не получилось (судя по всему windows не может изменить тип перемещения окна после начала сего), зато WM_NCLBUTTONDOWN и соответственно WM_NCLBUTTONUP всче прошло на ура.
И соответственно код, мож кому пригодится.
public
{ Public declarations }
bIsFullDrag:Boolean;
procedure EXITSIZEMOVE(var msg: TMSG); message WM_EXITSIZEMOVE;
procedure NCLBUTTONDOWN(var msg: TMSG); message WM_NCLBUTTONDOWN;
procedure NCLBUTTONUP(var msg: TMSG); message WM_NCLBUTTONUP;
end;
----
procedure TForm1.EXITSIZEMOVE(var msg: TMSG);
begin
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS,cardinal(bIsFullDrag),nil,0);
inherited;
end;

procedure TForm1.NCLBUTTONDOWN(var msg: TMSG);
begin
SystemParametersInfo(SPI_GETDRAGFULLWINDOWS,0,@bIsFullDrag,0);
if bIsFullDrag then
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS,0,nil,0);
inherited;
end;

procedure TForm1.NCLBUTTONUP(var msg: TMSG);
begin
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS,cardinal(bIsFullDrag),nil,0);
inherited;
end;


---

← →
Alex44   (2003-02-22 21:07) [4]

Strogo govorya, ya ne imel v vidu izmenenie SYSTEMNYH parameterov: mne kazhetsya, eto grubo, t.k. eto---rerogativa user"a. Mozhno prosto vystavlyat" flag po WM_ENTER..., sbrasyvat" ego po WM_EXIT..., i perehvatyvat" WM_...PAINT i, v zavisimosti ot flaga, libo prosto risovat" ramku, libo inherited.

---

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

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



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