Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sherlock,
31. Okt 2014
Eiverdibsch!! Da ist mir doch tatsächlich etwas verloren gegangen:
if PtInRect((Sender as TScrollBox).BoundsRect, MousePos) then
Danke für den Hinweis!
Sherlock
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sherlock,
31. Okt 2014
Es tut aber. Was theoretisch eventuell nicht geht, klappt in der Praxis fehlerfrei.
Aber sag bitte, was sieht daran falsch aus?
Sherlock
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Sherlock,
5. Sep 2014
Bei mir klappt der eigentlich verständliche Code von Uwe ebenfalls nicht. Ich denke es liegt daran, daß ich Panels auf Panel ins Groupboxen auf einer Scrollbox habe...also beliebig verschachteltes Zeugs. Beholfen habe ich mir hiermit:
procedure TForm.ScrollBox2MouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
var...