Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизНе могу разобраться с Ф-ей Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c