Главная страница
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.023 c
14-17296
Дмитрий К.К.
2003-02-20 07:59
2003.03.06
79 гринов


1-17103
MikeFW
2003-02-25 13:06
2003.03.06
как запустить файл, который присоединен в качестве рессурса?


1-17109
Sergey_El'f
2003-02-26 09:25
2003.03.06
Как выбрать строку в дбгриде под мышиным курсором?


1-17047
Zergling
2003-02-25 06:19
2003.03.06
На RTTI-ку навались (пробуем создать инспектор объектов)


1-17090
Raduga
2003-02-22 12:29
2003.03.06
События при помещении компонента на форму