Buttons als Taster Touchscreen (Volumregler)

[s.h.a.r.k]

Würde aber behaupten, dass du die "Zauberei" schon erkannt hast, da es sehr wahrscheinlich ein Timer sein wird, der im Hintergrund sitzt und den Wert entsprechend anpasst.

[turboPASCAL]

Meine Lösung:

Delphi-Quellcode:

procedure X.RunBtnPressCount;
const
  PAUSE_IN_MS = 150;
var
  StartTime: Cardinal;
begin
  while FCountEvent do
  begin
    StartTime := GetTickCount;
    while GetTickCount - StartTime <= PAUSE_IN_MS do
      Application.ProcessMessages;
    inc(FBtnPressCounter);

    Label.caption := inttostr(strtoint(Label.caption)+1);
  end;
end;

procedure X.ButtonMouseDown...
begin
  FCountEvent := True;
  RunBtnPressCount;
end;

procedure X.ButtonMouseUp...
begin
  FCountEvent := False;
end;

Schon ist kein (T)Timer notwendig, ma könnte sich ja auch eine Classe daraus basdteln

[Cyberaxx]

Hey das schaut sehr gut aus. Habs gleich auch mal getestet mit Up / Down Funktion

Nur wie würdest Du daraus eine Klasse erstellen, meinst Du damit das nutzen mehrerer solcher Events?
Einsatz wäre denkbar als EQ.