ScrollBox und Delphi XE

[himitsu]

Ich hätte erwartet, daß OnPaint auch beim Scrollen ausgelöst wird, da ja der Inhalt (teilweise) neu gezeichnet werden muß.

[s.h.a.r.k]

Ist das nicht der Fall? Imho müsste das schon auch aufgerufen werden, sonst würde das OnPaint-Ereignis wenig Sinn machen.

[stahli]

MEissing hat u.a. auch diese Webinars veranstaltet.
War ja nur so eine Idee, das mal (deutsch) als Problem mitzuteilen...

[Insider2004]

Die Dinger gibt es. Leider werden die nur intern verwendet und sind aussen nicht sichtbar.

Delphi-Quellcode:

procedure TScrollingWinControl.WMHScroll(var Message: TWMHScroll);
begin
  if (Message.ScrollBar = 0) and FHorzScrollBar.Visible then
    FHorzScrollBar.ScrollMessage(Message) else
    inherited;
end;

Leider muss man bei Emba mindestens 10 Jahre warten, damit mal ein User-wunsch erfüllt wird. Wenn sich also niemand oder zu wenig Leute beschweren, dann wird da nie was passieren.

[s.h.a.r.k]

Oder man nutzt eben die Komponente weiter oben Dort werden eben die Messages abgefangen, Events getriggert und weiter geleitet.

[FrankJ28]

Meinen Dank an Armin, ich habe das inzwischen recht ähnlich gelöst (Deine Lösung ist aber eleganter)
Ciao
Frank

[Bummi]

@FrankJ28
dann schmoll ich jetzt mal eine Runde

[stahli]

[OT-aber seelsorgerisch wichtig!]Bummi, dafür verwende ich Deine eingebetten Formulare! [/OT-aber seelsorgerisch wichtig!]

[FrankJ28]

@Thomas: Asche auf mein Haupt, auch dein Code ist natürlich zielführend, natürlich auch mein Lob an dich.
Ciao
Frank

[s.h.a.r.k]

@Bummi: Wir hatten wohl gleichzeitig die selbe Idee, ich hab sie halt mal schnell in eine installierbare Komponente gegossen. Hab sowas lieber gekapselt, da es sich dann eben einfacher und wie "normale" VCL-Objekte verwenden lässt