ScrollBox und Delphi XE

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