ScrollBox und Delphi XE

[s.h.a.r.k]

Muss hier aber auch sagen, dass dieses Event auch einfach fehlt. Wenn ich eine Komponente programmiere, dann überlege ich mir doch was für die Benutzung sinnvoll ist und sowas liegt doch fast auf der Hand.

[FrankJ28]

@Markus: Wenn ich mit so einer Bemerkung meinen Kunden gegenüber trete bekomme ich mit Recht einen Rüffel. Meine Frage zielt ja auch nicht auf fals/richtig, ich stelle lediglich fest, dass es vorher gefeurt wurde, und jetzt leider nicht meh und frage, ob jemand Abhilfe kennt.

@Armin: Hatte ich seinerzeit (um 2000) schon bei Borland nachgefragt. Antwort: gibt es nicht, Abhilfe über onCanResize. Ein korrektes (@Markus: hast ja Recht) event hätte ich auch gerne.

Nun stehe ich leider vor der Migration auf Delphi XE und werde mit den "Fehlerbeseitigungen" in Delphi konfrontiert. Vielleicht hat ja noch jemand eine zündene Idee, mein Post sollte ja keine Kritik sein, aber "Ist halt so" hilft nicht.

Ciao
Frank

[Bummi]

am sinnvollsten eine neue Komponente ableiten und in DFM's und pas per Search&Replace ersetzen
, Quick und dirty und für Testzwecke

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls,jpeg, ExtCtrls;

type
  TScrollBox=Class(Forms.TScrollBox)
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  End;
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TScrollBox }



{ TScrollBox }

procedure TScrollBox.WMHScroll(var Message: TWMHScroll);
begin
  Form1.Caption := 'HSCROLL';
  inherited;
end;

procedure TScrollBox.WMVScroll(var Message: TWMVScroll);
begin
  Form1.Caption := 'VSCROLL';
  inherited;
end;

end.

[stahli]

Frag doch mal bei Matthias Eissing an. Ich denke, er toleriert das.

[s.h.a.r.k]

Zitat von stahli:

Frag doch mal bei Matthias Eissing an. Ich denke, er toleriert das.

Wer ist denn das? Sagt mir gar nichts -- wobei ich auch gestehen muss, dass ich keinen von Embarcadero kenne

Hier das ganz mal als Komponente gepackt.

[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.