Hab das nochmal geprüft..
Denke das Problem kommt wo anders her
Teil meiner Proc
Delphi-Quellcode:
WM_PAINT, WM_PRINT:
begin
Img := GetButImageProperty(WinHandle);
ButtonStyle := GetButStyle(WinHandle);
if (ButtonStyle and BS_USERBUTTON) = BS_USERBUTTON then
IsStaticLabel := True;
if (Img <> 0) or IsStaticLabel then
begin
GetClientRect(WinHandle, rc);
if Msg = WM_PAINT then
begin
hDC := BeginPaint(WinHandle, ps);
und das ende
Delphi-Quellcode:
if Msg = WM_PAINT then
begin
if not Composited then
DoubleBuffer(0, 0, 0, 0);
EndPaint(WinHandle, ps);
end;
Result := 0;
exit;
end; // end WM_PAINT, WM_PRINT
WM_DESTROY:
begin
// GDIPLUS button image löschen
Img := GetButImageProperty(WinHandle);
DeleteResource(Img);
end;
end;
Result := CallWindowProc(ButOldProc[nil, 0], WinHandle, Msg, wParam, lParam);
end; // End With
Wenn ich nun EndPaint(WinHandle, ps); deaktiviere funktioniert
alles so wie es soll MouseMove usw ..
Nur was dann passiert könnt ihr euch denken das geht 2 Minuten gut dann wars das.
Wie könnte ich das problem lösen hab im moment keine idee.
gruss Emil