Panel und Hot Track

[Tyrael Y.]

Dann musst du das "Hot-Track selber machen - was auch immer es macht.

Delphi-Quellcode:

procedure TMyClass.MyImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  DoHotTrack(MyPanel, True);
  ... 
end;

procedure TMyClass.MyImageMouseLeave(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  DoHotTrack(MyPanel, False);
  ... 
end;

procedure TMyClass.DoHotTrack(APanel: TMyPanel; HotTrack: Boolean);
begin
  if HotTrack then
  begin
    APanel.BevelOuter := bvRaised;
    APanel.Color := clGreen;
  end
  else
  begin
    APanel.BevelOuter := bvNone;
    APanel.Color := clBtnFace;  
  end; 
end;