Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.22;
Скачать: CL | DM;

Вниз

ReSize формы   Найти похожие ветки 

 
Pat ©   (2002-02-18 02:27) [0]

Как можно изменить размеры формы, потянув за ее край, если BorderStyle = bsNone?


 
McSimm ©   (2002-02-18 16:28) [1]

Обрабатывая сообщение WM_NCHITTEST, проверять где находится указатель мыши. В зависимости от этого возвращать одно из значений. Вот пример:
procedure TMyFrm.WMNCHITTEST(var Message: TWMNCHITTEST);
var
Bounds: TRect;
CX, CY: Integer;
begin
Bounds := BoundsRect;
CX := 5;
CY := 5;
InflateRect(Bounds, -CX, -CY);
with Message do
begin
if XPos < Bounds.Left then
begin
if YPos > Bounds.Bottom - 8 then Result := HTBOTTOMLEFT
else if YPos < Bounds.Top + 8 then Result := HTTOPLEFT
else Result := HTLEFT
end else
if XPos > Bounds.Right then
begin
if YPos > Bounds.Bottom - 8 then Result := HTBOTTOMRIGHT
else if YPos < Bounds.Top + 8 then Result := HTTOPRIGHT
else Result := HTRIGHT
end else
if YPos < Bounds.Top then Result := HTTOP
else if YPos > Bounds.Bottom then Result := HTBOTTOM
else
if YPos < Bounds.Top + 15 then Result := HTCAPTION

end
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
1-69854
dimonf
2002-04-08 21:40
2002.04.22
Народ, подскажите, как распечатать график сформированный Chart?


6-69963
Mustang
2002-02-07 00:09
2002.04.22
NMSMTP глючит?


6-69957
Vadim_V
2002-02-08 14:31
2002.04.22
Работа с сетью


7-70053
petyun
2002-01-21 14:43
2002.04.22
внешнее устройство


14-70019
AlexS
2002-03-17 17:03
2002.04.22
Описание формата ISO9660