三个scrollbar控件怎么响应同一个过程scrollbarchange？

Question

只写一个事件响应函数，然后把各个控件响应的事件处理函数都指向它

Answer 1

type
  TForm1 = class(TForm)
    scrlbr1: TScrollBar;
    scrlbr2: TScrollBar;
    procedure scrlbrChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);

procedure TForm1.scrlbrChange(Sender: TObject);
var
  scrlbr: TScrollBar;
begin
  scrlbr := Sender as TScrollBar;
  Caption := '滚动来自' + scrlbr.Name;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  // 当然也可以在事件面板窗口中设置
  scrlbr1.OnChange := scrlbrChange;
  scrlbr2.OnChange := scrlbrChange;
end;