Button abfrage

[Alf]

Hi Leute

Ich hoffe das ich hier richtig bin.?
Versuche folgendes Problem zu lösen.

So lange ein Button gedrückt ist, soll ein Berechnung durchgeführt werden,
wenn der Button wieder losgelassen wird, wird die Berechnung beendet.

mit den Onclick oder onMouseDown geht es ja nicht.
muss ja ständig neu gedrückt werden!!


Gruss ALf

[NicoDE]

Vielleicht solltest du über einen event-orientierten Ansatz nachdenken (Drücken = Start, Loslassen = Stop).

[maximus Caesar]

Versuchs so:
OnMouseDown: Berechnung starten
OnMouseUp: Berechnung beenden

PS: bitte das Doppelte Thema wieder löschen!

[tHeRiAn]

Moin,
was spricht gegen "OnKeyDown" und "OnKeyUp". Dafür gibts doch auch schon fertige Eventhandler.

beim Down wird berechnung begonne und bei Up selbige beendet.

gruss ich

[Alf]

Hi

danke für die Schnellen Antworten, aber komischerweise funct nichts davon

hiehr mein Code;

Delphi-Quellcode:

procedure TForm1.BitBtn5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
    len:dword;
    zt: longint;
begin
      btime:=btime-100;
       .......
      .......
end;

muss trotzdem immer wieder neu klicken!!

Gruss Alf

[Treffnix]

Klar. Auch Mousedown und Mouseup werden nur einmal aufgerufen. Du musst beim Mousedown einen Timer, Schleife oder ähnliches starten, in der du die eigentliche Funktionalität aufrufst und bei Mouseup stoppst du den Timer, Schleife, wasweissich.

[Alf]

Hi

Habs gleich mal ausprobiert!!!???
kann aber nur ne Notlösung sein, wegen des .Intervals
muss man ganz schön Exp. um evtl das richtige Verhältniss festzustellen.
Und in der Praxis dann????


Gruss Alf

[turboPASCAL]

Zitat von Alf:

So lange ein Button gedrückt ist, soll ein Berechnung durchgeführt werden...

So ?

Delphi-Quellcode:

var StoppBerechnung: Boolean;

procedure TForm1.StartBerechnung;
begin
  repeat
    //... Berechnung
    //...
    Application.ProcessMessages;
  until StoppBerechnung;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StoppBerechnung := False;
  StartBerechnung;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StoppBerechnung := True;
end;

[Alf]

Hi

ist ne gute Lösung!!

Danke

Gruss Alf