Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Tim-94,
20. Sep 2012
Vielen Dank für eure Bemühungen! :)
Mittlerweile funktioniert alles, es hatte sich ein kleiner Fehler beim Übernehmen von Uwes Quelltext eingeschlichen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Tim-94,
19. Sep 2012
Danke für die Antwort.
Aber irgendwie funktioniert das mit deinem Code bei mir auch nicht.
Weiß leider auch nicht, woran das liegt.
Und wo kann ich nachgucken, was PScrollBox.ClientRect und AScrollBox.ClientRect jeweils zurückgeben?
Soll ich mir das als Text oder Zahl ausgeben lassen?
Oder wie ist das gemeint?
Danke schonmal!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Tim-94,
18. Sep 2012
Hallo alle zusammen :)
Ich habe eine Frage zu folgendem Code:
{-------------------------------------------------------------------}
procedure TMainForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if PtInRect(PScrollBox.ClientRect, ScreenToClient(MousePos)) then
PScrollBox.OnMouseWheelUp(Sender, Shift, MousePos, Handled);