Rechter Mausklick

[LoW_FloW]

Ich will ein Programm machen, das die Klicks zäht, aber nur die des linken Mauszeigers. Wie kann ich den Rechten verbieten? Hier der "unkomplette" Source:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Y<Image1.Height+Image1.Top) and (Y>Image1.Top) then 
  if klick = true then begin
    klicks := klicks + 1 ;
    Label3.Caption := 'Schon '+IntToStr(klicks)+' Klicks';
    if (20-sek) <> 0 then durchschnitt := trunc((klicks/(20-sek))*100)/100 ; //trunc(Zahl*100)/100;
    end;
end;

[Sharky]

Hai LoW_Flow,

werte die Variable Button aus

[Markus K.]

Hi LoW_FloW,
mit VK_LBUTTON(Linke Maustaste), VK_RBUTTON(Rechte Maustaste) sowie VK_MBUTTON(mittlere Maustaste) müsstest du prüfen können, welche Maustaste gedrückt wurde.
z.B.:
if Key=VK_LBUTTON then Du führst die Prozedur dann einfach nur aus, wenn eine bestimmte Maustaste gedrückt wurde. Das funktiniert aber nur bei den Ereignisbehandlungsroutinen OnKeyUp und OnKeyDown.

Bei onMouseDown, etc. kannst du es wiefolgt machen.
z.B.:
if ssLeft in Shift then oder so
if Button=mbLeft then Tschüß Markus

[citybreaker]

Es gibt auch noch.

Delphi-Quellcode:

if button = mbleft then
...

if button = mbright then
...