OnMouseOver bei selbst erzeugtem TPicture

[Khabarakh]

So?

Delphi-Quellcode:

//EventHandler für PreviewBox.OnMouseMove
begin
  if InRange(y div 101, 10, 100) then
    if InRange(x, 50 + 220, 50 + 220 + 120) then
    begin
      PreviewBox.Canvas.Draw(0, 0, Entry.Picture[1].Graphic);
      Exit
    end
    else
      if InRange(x, 190 + 220, 190 + 220 + 120) then
      begin
        PreviewBox.Canvas.Draw(0, 0, Entry.Picture[2].Graphic);
        Exit
      end;
  PreviewBox.Canvas.FillRect(...); // gesamte Paintbox mit weiß füllen
end;