Thema: Delphi Rechter Mausklick

Einzelnen Beitrag anzeigen

Benutzerbild von LoW_FloW
LoW_FloW

Registriert seit: 29. Nov 2003
117 Beiträge
 
Delphi 7 Professional
 
#1

Rechter Mausklick

  Alt 11. Mär 2004, 13:34
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;
  Mit Zitat antworten Zitat