TScrollBar und API-Funktion "SetScrollPos()"

[Daniel]

Hallo Leute,

ich habe gerade eine geistige Blockade - aber zum Glück auch ein Forum, um mir helfen zu lassen. *g*

Ich habe einen TScrollbar auf meinem Formular plaziert und möchte diesem zur Laufzeit ein neues Maximum zuweisen können. Da diese Zuweisung aus einer eigenen Klasse heraus erfolgt, möchte diese Zuweisung gerne über eine API-Funktion und das Handle des Scrollbars ausführen, um den Scrollbar selber nicht enger als nötig an meine Klasse binden zu müssen.

Für solche Angelegenheiten schient MS die API-Funktion "SetScrollInfo()" vorgesehen zu haben. Nur komme ich damit nicht klar. Wann immer ich ein neues Maximum zuweise, quitiert es mir der Scrollbar damit, dass ich nur noch von "0" bis "0" scrollen kann. Dass dies nicht besonders aufregend ist, könnt Ihr Euch bestimmt vorstellen.

Mein Code ist der Folgende:

Delphi-Quellcode:

Begin
  // Ich setz' mal alles auf Null - schaden wird es nichts
  FillChar( ScrollInfo, SizeOf(TScrollInfo), 0 );

  // Nu' die Struktur erstmal mit den aktuellen Werten des Scrollbars fuellen lassen
  With ScrollInfo Do
  Begin
    cbSize:= SizeOf( TScrollInfo );
    fMask:= SIF_ALL; // alle Infos holen
  End;
  GetScrollInfo( myScrollBar.Handle, SB_CTL, ScrollInfo );

  // Jetzt die von mir gewuenschten Werte einflechten und dann ab damit
  With ScrollInfo Do
  Begin
    cbSize:= SizeOf( TScrollInfo );
    fMask:= SIF_RANGE;
    nMin:= 0;
    nMax:= 150;  // <- hier wuerde ein Wert zwichen 0 und 1000 stehen
  End;
  SetScrollInfo( myScrollBar.Handle, SB_CTL, ScrollInfo, TRUE );
End;

Weiss wer Rat?