Главная страница
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.015 c
1-17082
IVANOV
2003-02-22 08:16
2003.03.06
Использование курсоров *.cur


1-16985
race1
2003-02-24 09:12
2003.03.06
parent


1-17072
Ghost_
2003-02-25 16:21
2003.03.06
KOI8-R


9-16846
Dark[UA]
2002-10-01 07:54
2003.03.06
GLScene


4-17435
KPV-10k
2002-12-19 21:04
2003.03.06
Оконо во весь экран...