Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: 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 вся ветка

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-13035
Grac
2003-05-15 20:12
2003.06.05
Соединение с базой данных


1-13138
Intell
2003-05-25 22:13
2003.06.05
Как осуществить чтение из ресурса?


14-13455
Renegate
2003-05-20 09:02
2003.06.05
Отстойная винда...


3-13042
Devourer
2003-05-16 15:40
2003.06.05
LocalShare


3-13020
vil
2003-05-16 12:14
2003.06.05
выборку из access в ms sql server