Scrollbox und Buttons -> Beim Scrollen nicht OnClick auslösen

[weisswe]

Hallo!

Ich habe eine TScrollbox-Komponente und generiere darauf dynamisch TButtons.
Problem ist das beim Scrollen (wenn ich am gleichen Button bleide) der OnClick-Event ausgelöst wird.
Was ist die "beste" Vorgehensweise dies zu vermeiden?

Beispiel:
Mein Scrollbereich umfasst 3 Zeilen (also Buttons 1-9).
Um hochzuscrollen drücke ich auf die Position wo Button 8 liegt und schiebe diesen auf Position 2.
Beim Auslassen des Buttons 8 wird auch OnClick Button8 ausgelöst.
123
456
789
ABC
DEF
GHI

Grüße,
Werner