15.05.2014, 19:12
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
для рисования всегда dc нужен:
Код:
WM_PAINT: begin
dc:=BeginPaint(AWnd, ps);
rct.Left:=10;
rct.Top:=130;
rct.Right:=110;
rct.Bottom:=150;
SetBkMode(dc, TRANSPARENT);
DrawText(dc, 'Label2', -1, rct, DT_SINGLELINE);
EndPaint(AWnd, ps);
Result:=0;
end;
можно static control еще использовать:
Код:
CreateWindowEx(0, 'STATIC', 'Label1',
WS_CHILD or WS_VISIBLE, 10, 100, 100, 25, AWnd, 0,
HInstance, nil);
но тут нужно другое сообщение обрабатывать:
Код:
WM_CTLCOLORSTATIC: begin
SetBkMode(wParam, TRANSPARENT);
Result:=GetStockObject(NULL_BRUSH);
end;
__________________
Пишу программы за еду.
__________________
|