Highlight TPanel on mouse move

Question

I'm trying to make app to show some information, It'll create Panels runtime and place info on it, each panel will be flat as on picture, also app will use runtime themes, so i'd not be able to change panel bg color on mouse move, I tried to place info on TSpeedButton :v O.o it has wonderfull highlight function when it's flat while app is using runtime theme, but the main problem is that images and labels aren't moving when i move speedbutton and i need this much, they just stay there..

I tried to edit TCustomPanel.Paint to see if panel will look like highlighted button, adding code at the end:

PaintRect := ClientRect;
Details := StyleServices.GetElementDetails(ttbButtonHot);
StyleServices.DrawElement(Canvas.Handle, Details, PaintRect);

but with no success..

also it's pretty hard to link some custom code OnClick event at runtime, e.g:

ShowMessage('custom message on each panel');

I have not got any idea on how to do this, hope some one will give me advice or show me some example..

btw, panel will be created this way:

var
  P: TPanel;
begin
 P := TPanel.Create(Self);
 P.Left := 20;
 P.Top := 100;
 P.Width := 60;
 P.Height := 20;
 P.Visible := True;
 P.Parent := Self;
 @P.OnClick := @Showmessageproc; // somehow this way..
end;

App pic:

If i do so:

procedure TMyPanel.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  mEvnt: TTrackMouseEvent;
begin
  inherited;
  if not FMouseTracking then begin
    mEvnt.cbSize := SizeOf(mEvnt);
    mEvnt.dwFlags := TME_LEAVE;
    mEvnt.hwndTrack := Handle;
    TrackMouseEvent(mEvnt);
    FMouseTracking := True;
    showmessage('IN');
  end;
end;

procedure TMyPanel.WMMouseLeave(var Msg: TMessage);
begin
 if Msg.Msg = WM_MOUSELEAVE then showmessage('OUT');
  Msg.Result := 0;
  FMouseTracking := False;
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;

procedure G(Sender: TObject);
begin
showmessage('message');
end;

procedure TMainFrm.Button1Click(Sender: TObject);
var
  P: TMyPanel;
begin
 P := TMyPanel.Create(Self);
 P.Left := 20;
 I := I + 100;
 P.Top := I;
 P.Width := 200;
 P.Height := 80;
 P.Visible := True;
 P.Parent := Self;
 @P.OnClick := @g;
end;

when I move mouse on runtime created panel, 2 msgbox appears, IN and OUT, "mousemove" works fine but "mouse leave" bad, also the mainc question is still actual. the problem is that that I can't get canvas of created panel to draw on. the example above could be achieved more simple way:

 @P.OnMouseLeave := @onmouseleaveproc;
 @P.OnMouseMove  := @onmousemoveproc;

but with Canvas, everything is more difficult, somewhere i've read that canvas is protected in TCustomPanel.

Also there's another question: Is it possible to handle panel wich called e.g OnMouseMove ? because there maybe will be 30 of them (runtime created panels)

I've tried this way: (and it does not works)

type
  TMyPanel = class(TPanel)
  public
   constructor Create(AOwner: TComponent); override;
  private
  //  FMouseTracking: Boolean;
  //  FOnMouseLeave: TNotifyEvent;
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
  //  procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  published
  //  property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;

    constructor TMyPanel.Create(AOwner: TComponent);
    begin
      ControlStyle := ControlStyle - [csParentBackground] + [csOpaque];
      inherited;
    end;


    procedure TMyPanel.CMMouseEnter(var msg: TMessage);
    begin
      inherited;
      Color := clBlue;
      { Do Whatever }
    end;

    procedure TMyPanel.CMMouseLeave(var msg: TMessage);
    begin
      inherited;
      Color := clRed;
      { Do Whatever }
    end;

Simply, color does not changes. (color changes with themes OFF)

What does your TMyPanel class look like? Specifically, I want to see the declarations for the message handlers. — lurker, May 27 '13 at 14:05
edited, color changes with themes OFF, but I want to use runtime theme — user2200585, May 27 '13 at 14:08
Do not debug mouse messages/events with message boxes/dialogs, they cause activation/deactivation and hence superfluous mouse messages/events. Use OutputDebugString or similar. — Sertac Akyuz, May 28 '13 at 00:28

score 1 · Answer 1 · edited May 23 '17 at 11:53

1

It's basically explained here for Delphi 6, but same concept I think. You want to define a custom windows message handler for your panel. This will give you basic mouse enter/exit capability. You can then play with setting TPanel properties from there to find something to your liking. For example, to mock a speed button, you might be able to just set the background color and change the border bevel accordingly. If that isn't adequate, you can write to the TPanel's Canvas directly (paint the behavior that you want to see) on mouse enter/exit to get the visual behavior you're after.

edited May 23 '17 at 11:53

Community

1
1

answered May 26 '13 at 17:02

lurker

56,987
9
69
103

can i highlight Panel as SpeedButton does? – user2200585 May 26 '13 at 17:04
1

You can pretty much do with it as you will depending upon how much custom code you're wanting to write. Once you have the mouse event captured, you can play with the standard Delphi methods of setting the TPanel properties. If those don't align with what you want, you can do custom drawing on the TPanel Canvas to do what you like. – lurker May 26 '13 at 17:06
1

This is not an answer. Link only answers are not good enough. – David Heffernan May 26 '13 at 20:55
I partly agree to David Heffernan but I'm afraid if I write that, I'll be minused and my post will be removed again. – user2200585 May 27 '13 at 10:08
I was striving to be helpful to the OP without writing out the entire answer in detail. I included the link since it largely described an important portion of the answer. I elaborated a bit in the answer plus further in the comment. It was my understanding that, on this forum, we're to be helpful but not necessarily be doing everyone's homework. After Dave's comment, I subsequently added more to the answer from the comment with a bit more. I am happy to help further if needed. – lurker May 27 '13 at 13:07
Did you try my suggestion of using TPanel properties of color and bevel style to achieve the effect you like, or have you determined that it won't work? – lurker May 27 '13 at 13:18
1. It's not a forum. It's question and answer. 2. My name is not Dave. 3. The edit is an improvement but it's still rather weak. – David Heffernan May 27 '13 at 17:22
1. K. 2. Apologies. 3. Thank you for the input. – lurker May 27 '13 at 17:50

lurker · Answer 2 · 2013-05-27T15:03:58.110

I created the following new component in Delphi and installed it. A new TColorPanel component showed up in a new MyComponents tab in the IDE. I then used this to put a TColorPanel on a new app and it responded properly to the mouse enter/leave events, changing the color as desired. I'm not sure how you made your app's panels as TMyPanel instead of standard TPanel. This is just how I tried it. I used your latest message handling code as-is.

unit ColorPanel;

interface

uses
  WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TColorPanel = class(TPanel)
  public
   constructor Create(AOwner: TComponent); override;
  private
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
  //  procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  published
  //  property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponents', [TColorPanel]);
end;

constructor TColorPanel.Create(AOwner: TComponent);
begin
  ControlStyle := ControlStyle - [csParentBackground] + [csOpaque];
  inherited;
end;

procedure TColorPanel.CMMouseEnter(var msg: TMessage);
begin
  inherited;
  Color := clBlue;
  { Do Whatever }
end;

procedure TColorPanel.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  Color := clRed;
  { Do Whatever }
end;

end.

I'm not sure why yours isn't working, other than to determine how you declared your app's panels to be TMyPanel.

Turn on runtime themes in D XE2 :) – user2200585 May 27 '13 at 17:23 — user2200585, May 27 '13 at 17:23

Highlight TPanel on mouse move

2 Answers2