Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

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;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.051 c
3-69689           Solod                 2002-03-13 07:31  2002.04.22  
Вопрос о TQuery с параметрами.


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


3-69728           KAA                   2002-03-28 15:43  2002.04.22  
2000 Работа с курсором


1-69824           Кулюкин Олег          2002-04-05 08:56  2002.04.22  
Ищу компонент - HTML viewer


3-69679           Filat                 2002-03-29 11:54  2002.04.22  
Как правильно подключить Access2000 и MS SQL Server 7.0?