Scrollbar stürzt ab nach Exception

[Marco Haffner]

Zitat von silent:

@marco: ich weiss nicht wie man mit dieser scrollt, ausserdem finde ich (ist zwar unwichtig...) sieht sie nicht so gut aus wie die andere.

Ich finde nicht, das da ein großer Unterschied zwischen besteht.
"Scrollen" kannst Du mit TUpDown (Win32) indem TUpDown.Associate mit dem gewünschten TEdit Verknüpft wird.
OnChanging und OnChangingEx werden beim ändern ausgelöst.

[Wormid]

Warum benutzt Du denn die Scrollbars so kompliziert?
Ich würde die Eigenschaft "Position" nehmen und in dem Edit anzeigen...
Vorher natürlich die Eigenschaften "Min" und "Max" mit den gewünschten Werten füllen.

Delphi-Quellcode:

procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Edit6.Text := ScrollBar2.Position;
end;

Gruß

Wormid

[Pseudemys Nelsoni]

hoi, danke für die hilfen.

irgendwie kann ich associate bei TUpDown nicht benutzen solange das edit auf einem panel liegt

[Marco Haffner]

Dreimal darfst Du raten, wie Du TUpDown und TEdit doch verknüpfen kannst.

[Pseudemys Nelsoni]

indem ich das TupDown mit auf das panel packe, das geht aber nicht, weil ich das Panel deaktiviert habe, damit nichts ins edit geschrieben werden kann. Wenn TUpDown mit daraufliegen würde, wäre es ebenfalls deaktiviert

[Luckie]

@Wormid: Hast du schon mal versucht deinen Code zu kompilieren?

[Marco Haffner]

@silent: Und warum bitteschön darf nicht ins Edit geschrieben werden?
Da gibt es andere bessere Lösungen. Die ScrollBar ist außerdem für das was Du vorhast auch nicht gedacht.

[Wormid]

Zitat von Luckie:

@Wormid: Hast du schon mal versucht deinen Code zu kompilieren?

Öhm... *hust*

Da fehlt doch irgendwie was... Aber so ein leckeres IntToStr ist ja schnell eingefügt...

Gruß

Wormid