Solved

DoubleClick on a TStatusPanel

Posted on 2007-04-02
6
478 Views
Last Modified: 2012-08-13
I need to have a OnDubleClick event on a TStatusPanel

(IE inside a statusBar OnDoubleClick I need to know which of the StatusPanels the double click is on
0
Comment
Question by:wqclatre
6 Comments
 
LVL 17

Expert Comment

by:mokule
ID: 18835534
Maybe try like this

var
    xm,ym: integer;


procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xm := X;
  ym := Y;
end;

procedure TForm1.StatusBar1DblClick(Sender: TObject);
var
  i: integer;
  dx: integer;
begin
  dx := 0;
  for i := 0 to StatusBar1.Panels.Count - 1 do
    begin
    if (xm > dx) and (xm < dx+ StatusBar1.Panels[i].Width) then
      begin
      ShowMessage(IntToStr(i));
      exit;
      end;
    dx := dx + StatusBar1.Panels[i].Width;
    end;
  ShowMessage('No panel clicked');
end;
0
 
LVL 2

Author Comment

by:wqclatre
ID: 18835706
I don't like the idea of Global variables.

Isn't there a way to get the ScreenPositions for the StatusPanel[2] for example ?
0
 
LVL 17

Expert Comment

by:mokule
ID: 18835776
It's up to You how You declare xm, ym.
They can be private members in the Form's class.
0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 11

Expert Comment

by:calinutz
ID: 18835781
Have you tryed this:

Statusbar2.ClientOrigin.X
Statusbar2.ClientOrigin.Y


Regards
0
 
LVL 2

Author Comment

by:wqclatre
ID: 18835787
Feels "global" to me.....  (global within the unit)
0
 
LVL 17

Accepted Solution

by:
TheRealLoki earned 500 total points
ID: 18920521
This is all you need, and is not global

procedure TForm1.StatusBar1DblClick(Sender: TObject);
var
  WhichPanel, wdth: integer;
  cp: tpoint;
begin
  cp := mouse.CursorPos;
  cp.x := cp.x - (sender as TStatusBar).ClientOrigin.x;
  WhichPanel := 0;
  wdth := 0;
  while (WhichPanel < (sender as TStatusBar).Panels.Count) and
        (cp.x > wdth + (sender as TStatusBar).Panels[WhichPanel].Width) do
  begin
    wdth := wdth + (sender as TStatusBar).Panels[WhichPanel].Width;
    inc(WhichPanel);
  end;
  ShowMessage('You clicked on panel # ' + Inttostr(WhichPanel));
end;
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question