---

Nogen der ved, hvordan man kan checke hvor på StatusBar, der er click'ed?

Fx en StatusBar med 2 Panels:
StatusBar1.Panels[0]
StatusBar1.Panels[1]

Hvis Clicked på StatusBar1.Panels[0] - så .......
Hvis Clicked på StatusBar1.Panels[1] - så .......

---

"Sven Storm" <sven.storm@skolekom.dk> wrote in message
news:b062a4$c92$1@news.net.uni-c.dk...
> Nogen der ved, hvordan man kan checke hvor på StatusBar, der er click'ed?
>
> Fx en StatusBar med 2 Panels:
> StatusBar1.Panels[0]
> StatusBar1.Panels[1]
>
> Hvis Clicked på StatusBar1.Panels[0] - så .......
> Hvis Clicked på StatusBar1.Panels[1] - så .......

Du kan vel bruge OnMouseDown og så regne ud af hvilket panel der er trykket
på ud fra StatusBar1.Panels[x].Width og musens position.

Simon

---

> Fx en StatusBar med 2 Panels:
> StatusBar1.Panels[0]
> StatusBar1.Panels[1]
>
> Hvis Clicked på StatusBar1.Panels[0] - så .......
> Hvis Clicked på StatusBar1.Panels[1] - så .......

procedure TMainForm.ProgramStatusBarMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
p : Short;
Widthp : Integer;
begin
Widthp := 0;
with ProgramStatusBar.Panels do begin
for P:=0 to Count-1 do
begin
Widthp := Widthp + Items[P].Width;
if x<=Widthp then Break;
end;
end;
case p of
0 : ;
1 : ;
2 : ;
end;
end;

jeps, that should do the trick

mvh
Henry

---

"Henry" <henry@nn.dk> skrev i en meddelelse
news:3e273412$0$71688$edfadb0f@dread11.news.tele.dk...
> > Fx en StatusBar med 2 Panels:
> > StatusBar1.Panels[0]
> > StatusBar1.Panels[1]
> >
> > Hvis Clicked på StatusBar1.Panels[0] - så .......
> > Hvis Clicked på StatusBar1.Panels[1] - så .......
>
> procedure TMainForm.ProgramStatusBarMouseUp(Sender: TObject;
> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> var
> p : Short;
> Widthp : Integer;
> begin
> Widthp := 0;
> with ProgramStatusBar.Panels do begin
> for P:=0 to Count-1 do
> begin
> Widthp := Widthp + Items[P].Width;
> if x<=Widthp then Break;
> end;
> end;
> case p of
> 0 : ;
> 1 : ;
> 2 : ;
> end;
> end;
>
> jeps, that should do the trick
>
> mvh
> Henry
>
Det virker FINT - tusinde tak.