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

Вниз

Не могу разобраться с Ф-ей   Найти похожие ветки 

 
Zhenka ©   (2003-02-17 06:57) [0]

private
procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
..........................
/............
..............
.........
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);

var
dc : hDc;
Pen : hPen;
OldPen : hPen;
OldBrush : hBrush;
begin
inherited;
dc := GetWindowDC(Handle);
msg.Result := 1;
Pen := CreatePen( ps_Solid, 8, RGB(0,0,255));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 2,2, Form1.Width-2, Form1.Height-2);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);

end;
.........
.....
.....
procedure TForm1.Button1Click(Sender: TObject);
begin
WMNCPaint(Месаге);..какой Меседж надо писать??
end;


 
Думкин ©   (2003-02-17 06:59) [1]

А точнее определи чего хочешь - тут и пояснят. А по клику такие мессаги - что-то не то, хотя может сейчас и запинают.


 
Zhenka ©   (2003-02-17 07:10) [2]

Не Без Клика встав. сию Ф-ю В Модуль, И на Форме рис. рамка, Только с её перерисовкой косяки (клик-пример вызоваФ-ии)
Надо на он Паиет Поставить WMCPaint()? А параметр где взять??


 
Zhenka ©   (2003-02-17 15:45) [3]

Написал на он паинт Формы:

var Msg : TWMNCPaint
begin
WMNCPaint(Мsg);
end;
=========
Все равно коряво перерисовывается
Подскажите


 
Ketmar ©   (2003-02-17 16:34) [4]

2Zhenka:
а лучше вместо "скажите, откуда подземный стук" выучить матчасть.

Satanas Nobiscum! 17-Feb-XXXVIII A.S.


 
Zhenka ©   (2003-02-17 16:43) [5]

2Кетмар
=====
Кроме шуток



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

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

Наверх




Память: 0.47 MB
Время: 0.055 c
3-16941
АндрейБ
2003-02-16 13:24
2003.03.06
Многомерное представление данных в отчете


14-17346
bambina
2003-02-18 10:35
2003.03.06
Glandy


4-17462
xGrey
2003-01-17 11:51
2003.03.06
CreateProcess и “DOS архиватор”.


7-17400
Ruf
2003-01-06 12:18
2003.03.06
Поверх всех окон


3-16925
Владимир
2003-02-16 15:34
2003.03.06
Индекс в БД