Hallo an alle,

Ich habe ein Problem. Ich will eine bestimmte Aktion solange ausführen, wie die linke Maustaste gedrückt ist. Habe mich hier schon durch einige ähnliche Beiträge geklickt und folgenden Quellcode geschrieben, der anscheinend bei den anderen funktioniert hat.

markieren

Code:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if shift = [ssleft] then Lb_Pos.Caption := 'Maustaste gedrückt'
  else Lb_Pos.Caption := 'Position: '+ inttostr(MMC_getPos);

end;

Meine Frage jetzt ist, warum mir in dem Label Lb_Pos nicht die Schrift "Maustaste gedrückt" angezeigt wird. Die Funktion MMC_getPos kann ignoriert werden, da diese durch eine externe DLL eingeführt wird und auch einen int-Wert zurückgibt.

Es wird durch Delphi kein Fehler angegeben.

Bei mir gibts nen Ereignis OnKeyPressed:
procedure Button1KeyPress(Sender: TObject; var Key: char); Damit müsste es doch funktionieren oder?
Den virtuellen Key für die linke Maustaste findest sicher bei google.de

Grüße

Wäre OnMouseDown nicht angebrachter?

Zitat von DeddyH:

Wäre OnMouseDown nicht angebrachter?

Um DeddyHs Vorschlag mal weiterzuführen:

markieren

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject);
begin
  Aktion.Starten;
end;

procedure TForm1.Button1MouseUp(Sender: TObject);
begin
  Aktion.Beenden;
end;

Allerdings kann der Benutzer die Maustaste auch außerhalb des Buttons loslassen, so das Button1.OnMouseUp nicht ausgeführt wird.

DAs mit ONMouseDown funktioniert, allerdings nur 1 mal und wenn ich eine While-Schleife mache, produziere ich eine Unendlich-Schleife und muss es abbrechen.

Zitat von Neutral General:

Allerdings kann der Benutzer die Maustaste auch außerhalb des Buttons loslassen, so das Button1.OnMouseUp nicht ausgeführt wird.

Komisch, bei mir wird das auch außerhalb des Buttons ausgeführt.

@BAMatze: Hast Du ein Application.ProcessMessages in Deiner Schleife?

Dann solltest du bei OnMouseDown einen timer starten der in einem gewissen Interwall die gewünscht Aktion ausführt. Im OnMouseUp hälst du ihn dann wieder an. Enabled:=false;

Zitat von DeddyH:

Zitat von Neutral General:

Allerdings kann der Benutzer die Maustaste auch außerhalb des Buttons loslassen, so das Button1.OnMouseUp nicht ausgeführt wird.

Komisch, bei mir wird das auch außerhalb des Buttons ausgeführt.

@BAMatze: Hast Du ein Application.ProcessMessages in Deiner Schleife?

Hab das ebend getestet, bei mir wird das nur ausgeführt, wenn ich wirklich den Button klicke, allerdings leider immer nocht mit If-Anweisung nur 1 mal und bei while-Schleife unendlich mal.

Zeig mal Deinen Code.

Zitat von kaiser1401:

Dann solltest du bei OnMouseDown einen timer starten der in einem gewissen Interwall die gewünscht Aktion ausführt. Im OnMouseUp hälst du ihn dann wieder an. Enabled:=false;

Ah danke das ist eine gute Idee. Werde ich mal probieren.