Tuning Knopf D7

[beanbear6]

Hi Dalai,
ja das ist mir schon klar... Erklärung:
Ich hab so ein DMX-board gemacht und möchte Werte von 0 bis 255
mit Hilfe eines runden Knopfes realisieren, weil das besser als mit
TrackBar oder so ist.
Damit das Ganze besser einzustellen ist, möchte ich, dass bei einmaligen
rumdrehen der Wert jeweils um z.B. von 0 bis 20 in einser Schritten erhöht wird.
Das heißt aber, dass ich bei weiterem rumdrehen ja wieder von 0 beginne.
Mit der richtigen Lösung muss ich dann z.B. ca. 12 mal rumdrehen, um die Werte
von 0 bis 255 zu erhalten..
Is bissl schwer zu erklären.. Kann mans verstehen?
Gruß Reiner

[Uwe Raabe]

Die Abacus Komponentensammlung enthält einen TAbGearDial:

Zitat:

Description
Dial control with multiple turns.

[hathor]

Ob das nun rund oder linear ist - man kann sowas auch selbst bauen:

Bedienung: hin- und herbewegen des Cursors mit der Maus oder dem Finger im grünen Bereich erhöht den Wert, im roten Bereich wird er verkleinert.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    Panel3: TPanel;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2MouseEnter(Sender: TObject);
    procedure BitBtn1MouseEnter(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1MouseEnter(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Label1.Tag:=  Label1.Tag -1; if Label1.Tag<0 then Label1.Tag:=0;
Label1.Caption:= INTTOSTR(Label1.tag);
Application.ProcessMessages;
winapi.windows.Beep(1500,20);
end;

procedure TForm2.BitBtn2MouseEnter(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Label1.Tag:=  Label1.Tag +1; if Label1.Tag>255 then Label1.Tag:=255;
Label1.Caption:= INTTOSTR(Label1.tag);
Application.ProcessMessages;
winapi.windows.Beep(2000,20);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Label1.Tag:=127;
Label1.Caption:= INTTOSTR(Label1.tag);
end;


end.

[beanbear6]

Hallo zusammen,
vieeelen Dank für Eure Hilfe. Danke an den Tip mit den Abakus!!
Auch Dank an das Beispiel. Ich werds mir gleich mal reinziehen.
Gruß an alle
Reiner