Registriert seit: 18. Mär 2005
1.682 Beiträge
Delphi 2006 Enterprise
|
Re: MouseEnter/MouseLeave ohne VCL!
6. Jan 2007, 00:56
Hallo,
die Message WM_CTLCOLORSTATIC erwartet als Rückgabewert einen HBrush. Den musst Du also auch zurückgeben:
Delphi-Quellcode:
if lParam = GetDlgItem(hWnd, ID_STC_WEB) then
begin
SetTextColor(wParam, RGB(0, 0, 255));
// Text-Hintergrund setzen
SetBkColor(wParam, GetSysColor(COLOR_BTNFACE));
// Brush zurückliefern
Brush := GetSysColorBrush(COLOR_BTNFACE);
Result := Brush;
SetProp(hWnd, ' Brush', Brush);
end
Gruß
xaromz
I am a leaf on the wind - watch how I soar
|
|
Zitat
|