Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c