1:
2:
3:
4:
5:
6:

 WM_PAINT:
   begin
     DC := BeginPaint(hwnd1, ps);
     DrawIconEx (DC, 1, 1, hIcon1, 32, 32, 0, 0, DI_NORMAL);
     EndPaint(hwnd1, ps);
   end;					

1:
2:
3:
4:

  WM_ERASEBKGND:
    begin
      result := 1;
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

 WM_PAINT:
   begin
     hparent:=GetParent(wnd);
     GetWindowRect(hparent,rect);
     DC := BeginPaint(wnd, ps);
     hdcMem := GetDC(hparent);
     // config sind die Einstellungen der Komponente
      // pWidth,pHeight ist die Größe der Komponente
      // MainRect ist das WindowRect der Komponente
     if not BitBlt(DC,0,0,config^.pWidth,config^.pHeight,
              hdcMem,config^.MainRect.Left - rect.Left,config^.MainRect.Top-rect.Top,SRCCOPY) 
      then messagebeep(1);
     ReleaseDC(hparent,hdcMem);

     case config^.Mode of
       DSIM_ICON:
         begin
           if config^.Icon <> 0
            then DrawIconEx (DC, config^.pX, config^.pY, config^.Icon, config^.pWidth, 
                   config^.pHeight, 0, 0, DI_NORMAL);
         end;
     end;
     EndPaint(wnd, ps);
   end;					

1:
2:
3:
4:
5:
6:
7:

  WM_PAINT:
    begin
      hparent := GetParent(wnd);
      GetWindowRect(hparent,rect);
      InvalidateRect(hparent,@rect,true);
      ...
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

var
 // für die Handles der Komponenten 
  HKButtons         : array [0..6] of HWND; 
 // Icons (0= normaler Status; 1= unter der Maus; 2 = gedrückt) 
  hKButton_Icons    : array [0..2] of HIcon;
  
...

for I := 0 to 6 do
 begin
  // Image ("Button") erstellen
   HKButtons[i] := CreateWindowEx(0, 'TDSImage', '', WS_VISIBLE or WS_CHILD,
                     12, 116 +i*30, 107, 22, Wnd, IDC_KButtonBase + i, hInstance,
                     nil);
  // "ImageMode" auf Icon setzten
   SendMessage(HKButtons[i],WM_DSIMAGESETMODE ,DSIM_ICON,0);
  // Handle zum vorher geladenen Icon übergeben
   SendMessage(HKButtons[i],WM_DSIMAGESETICON ,hKButton_Icons[0],0);
  // So hier kommt meine vorübergehende Lösung meines Problems 
  // (es wird das Handle eines vorher zugeschnittenens Bitmap zum wiederherstellen des 
  // Hintergrundes übergeben)
   SendMessage(HKButtons[i],WM_DSIMAGESETCLEARBMP,DCToBitmap(BkgDC,12,116 +i*30,107,22),0);
  // Hier werden die Proceduren gesetzt (MouseEnter, MouseLeave)
   SendMessage(HKButtons[i],WM_DSIMAGESETMOUSEENTER,Integer(@KButtonMouseEnter),0);
   SendMessage(HKButtons[i],WM_DSIMAGESETMOUSELEAVE,Integer(@KButtonMouseLeave),0);
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

type
 TDSNotifyEvent = procedure(wnd: HWND); 

...
 //config ist ein Record der an das Handle gebunden ist!

 WM_DSIMAGESETMouseEnter:
   begin
     config^.FOnMouseEnter:= TDSNotifyEvent(wParam);
   end;

 WM_DSIMAGESETMouseLeave:
   begin
     config^.FOnMouseLeave:= TDSNotifyEvent(wParam);
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

 WM_MOUSELEAVE:
   begin
     config^.WindowHover := False;
     if Assigned(config^.FOnMouseLeave)
      then config^.FOnMouseLeave(config^.MainWnd);
   end;

 WM_MOUSEMOVE:
   begin
     if not config^.WindowHover then
      begin
        config^.WindowHover := True;

       //WM_MOUSELEAVE generieren
        with config^.EventTrack do
         begin
           cbSize := SizeOf(TTrackMouseEvent);
           dwFlags := TME_LEAVE;
           hwndTrack := wnd;
           dwHoverTime := HOVER_DEFAULT;
         end;
        _TrackMouseEvent(@config^.EventTrack);

        if Assigned(config^.FOnMouseEnter)
         then config^.FOnMouseEnter(config^.MainWnd);
      end
      else
       if Assigned(config^.FOnMouseMove)
        then config^.FOnMouseMove(config^.MainWnd,LOWORD(lParam),HIWORD(lParam));
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure KButtonMouseEnter(wnd: HWND);
var
 i : integer;
begin
  for I := 0 to 7 - 1 do
   begin
     if HKButtons[i] = wnd then
      begin
       //Das Handle zum Icon für den markierten Zustand wird übergeben
        SendMessage(HKButtons[i],WM_DSIMAGESETICON ,hKButton_Icons[1],0);
       //Neuzeichnen erzwingen // Das sollte ich jetzt mit dem anderen ersetzen?
        InvalidateRect(HKButtons[i],nil,true);
      end;
   end;
end;

procedure KButtonMouseLeave(wnd: HWND);
var
 i : integer;
begin
  for I := 0 to 7 - 1 do
   begin
     if HKButtons[i] = wnd then
      begin
       //Das Handle zum Icon für den normalen Zustand wird übergeben
        SendMessage(HKButtons[i],WM_DSIMAGESETICON ,hKButton_Icons[0],0);
       //Neuzeichnen erzwingen // Das sollte ich jetzt mit dem anderen ersetzen?
        InvalidateRect(HKButtons[i],nil,true);
      end;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 WM_PAINT:
   begin
     DC := BeginPaint(wnd, ps);

    //Hintergrund wiederherstellen!
     hdcMem := CreateCompatibleDC(DC);
     SelectObject(hdcmem,config^.ClearBMP);
     BitBlt(DC,0,0,config^.pWidth,config^.pHeight,hdcMem,0,0,SRCCOPY);
     DeleteDC(hdcMem);

     case config^.Mode of
       DSIM_ICON:
         begin
          //das grade aktuelle Icon zeichnen
           if config^.Icon <> 0
            then DrawIconEx (DC, config^.pX, config^.pY, config^.Icon, config^.pWidth, config^.pHeight, 0, 0,DI_NORMAL);
         end;
     EndPaint(wnd, ps);
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure KButtonMouseEnter(wnd: HWND);
var
 i : integer;
 rect : TRect;
begin
  for I := 0 to 7 - 1 do
   begin
     if HKButtons[i] = wnd then
      begin
       GetWindowRect(HKButtons[i],rect);
       SendMessage(HKButtons[i],WM_DSIMAGESETICON ,hKButton_Icons[1],0);
       InvalidateRect(0,@rect,false);
      end;
   end;
end;

procedure KButtonMouseLeave(wnd: HWND);
var
 i : integer;
 rect : TRect;
begin
  for I := 0 to 7 - 1 do
   begin
     if HKButtons[i] = wnd then
      begin
       GetWindowRect(HKButtons[i],rect);
       SendMessage(HKButtons[i],WM_DSIMAGESETICON ,hKButton_Icons[0],0);
       InvalidateRect(0,@rect,false);
      end;
   end;
end;					

1:

InvalidateRect(0,@rect,false);					

1:
2:

InvalidateRect(GetParent(HKButtons[i]),@rect,false);
InvalidateRect(HKButtons[i],@rect,false);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  WM_PAINT:
    begin
      DC := BeginPaint(wnd, ps);
      hParent := GetParent(wnd);
      GetWindowRect(hParent,rect);
      hdcMem := GetDC(hParent);

      BitBlt(DC,0,0,config^.pWidth,config^.pHeight,
        hdcMem,config^.MainRect.Left-rect.Left,
        config^.MainRect.Top-rect.Top,SRCCOPY);

      ReleaseDC(hParent,hdcmem);

      ...

      EndPaint(wnd, ps);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure KButtonMouseEnter(wnd: HWND);
var
 i : integer;
 PRect: TRect;
 Rect: TRect;
 R: TRect;
begin
 for i := 0 to 6 do
  begin
   if HKButtons[i] = wnd then
    begin
      GetWindowRect(GetParent(HKButtons[i]),PRect);
      GetWindowRect(HKButtons[i],Rect);
      R.Left:= Rect.Left-PRect.Left;
      R.Top:= Rect.Top-PRect.Top;
      R.Right:= R.Left + (Rect.Right - Rect.Left);
      R.Bottom:= R.Top + (Rect.Bottom - Rect.Top);
      SendMessage(HKButtons[i],WM_DSIMAGESETICON ,hKButton_Icons[1],0);
      InvalidateRect(GetParent(HKButtons[i]),@R,true);
      Break;
    end;
  end;
end;