TUpDown

[Pseudemys Nelsoni]

moin,

kann mir jemand erklären wei ich bei der scrollbar auf ein "pfeil-nach-oben" und"pfeil-nach-unten" Klick reagiere?
hab nichts gefunden in der suche :\

danke, gruss silent

[Daniel B]

Hallo,

in dem OnChangeEx Ereigniss steht Dir Direction zur Verfügung.
Ausserdem verschiebe ich es nach VCL-Komponenten.

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

danke ;)

[Daniel B]

Hallo,

kein Thema. ;)

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

hm, und wie versende ich das? sorry hab das nie benutzt
[Edit=FuckRacism]Doppelpost gelöscht; MfG Roman[/Edit]

[Daniel B]

Hallo,

müsste damit gehen:

Delphi-Quellcode:

  if Direction = updUp then
  begin
    ShowMessage('Hoch');
  end
  else if Direction = updDown then
  begin
    ShowMessage('Runter');
  end;

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

funktioniert zwar, aber sobald ich es einmal gemacht hab, kommt sogar die Message "hoch", sobald ich auf den schliessen button, ins fenster etc klicke, also nicht nur bei der scrollbar hmm...hatte das so:

Delphi-Quellcode:

procedure TForm1.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  if Direction = updUp then
  begin
    showmessage('hoch');
  end
  else if Direction = upddown then
  begin
    showmessage('runter');
  end;
end;

[Daniel B]

Hallo,

*grumel* *grumel*
Ich kriege es im Moment auch nicht in den Griff, aber was hälst Du von dem SpinButton? Auf den Reiter "Beispiele".
Der hätte eigene Prozeduren für Up und Down. Wäre einfacher und sieht auch so aus.

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

hoi, danke für den tip werd ich den wohl nehmen^^

[Pseudemys Nelsoni]

super, ich hab die beispiele nicht mit installiert und finde delphi cd nicht... hab cd nie in hüllen -_-

falls es doch noch jemand weiss wie das mit dem TUpDown funzt möge bitte posten :)

[Daniel B]

Hallo,

Zitat:

Zitat von silent

super, ich hab die beispiele nicht mit installiert und finde delphi cd nicht... hab cd nie in hüllen -_-

Du hast nicht alle normalen Komponenten installiert? :shock:

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

ne, hab indy etc und was ich nicht brauche weggelassen, btw ich würd auch die normale Scrollbar gerne nehmen...warum gibts nicht einfach sowas wie "onArrowUpClick" und "onArrowDownClick".... die ereignisse der scrollbar sagen mir irgendwie alle nicht wie ich aif die einzelnen clicks der pfeile reagiere und in der hilfe hab ich auch nichts gefunden.
mit dem UpDown dingda hatte ich

Delphi-Quellcode:

  if button = btNext then
  begin
    Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
    UpDown1.Position := StrToInt(Edit1.Text);
  end;
  if button = btprev then
  begin
    Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
    UpDown1.Position := StrToInt(Edit1.Text);
  end;

aber die is irgendwie komisch und funzt nich ganz recht weil die irgendwie mit min/max und sowas geht

also ich möcht lieber die normale Scrollbar nehmen, aber wie?

gruss silent^^

[Daniel B]

Hallo,

Zitat:

Zitat von silent

ne, hab indy etc und was ich nicht brauche weggelassen, btw ich würd auch die normale Scrollbar gerne nehmen...warum gibts nicht einfach sowas wie "onArrowUpClick" und "onArrowDownClick"...

Das mit den zwei getrennten Prozeduren für Up und Down hätte der SpinButton. Solltest Du vielelicht doch nachinstallieren. Das wäre doch das was Du willst und es sieht auch so aus wie der TUpDown.
Eine blödere Möglichkeit ist einfach zu prüfen, wo Du mi der Maus hinklickst, auf dem Formular. Wäre zwar machbar, aber das "reindrücken" der Pfeile wäre nicht sichtbar. Also eher unschön.

Grüsse, Daniel :hi:

[Pseudemys Nelsoni]

huhu daniel,

danke für die tips, ich hab es mit der Scrollbar geschafft und benutze nun diese :)