开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ScrollF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

ScrollF.pas：源码内容
  1. unit ScrollF;
  3. interface
  5. uses
  6.  Windows, Classes, Graphics, Forms, Controls,
  7.  StdCtrls, SysUtils, Messages, Statusf;
  9. type
  10.   TForm1 = class(TForm)
  11.     ListBox1: TListBox;
  12.     ListBox2: TListBox;
  13.     ListBox3: TListBox;
  14.     ListBox4: TListBox;
  15.     ListBox5: TListBox;
  16.     ListBox6: TListBox;
  17.     procedure FormResize(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     procedure FormScroll (var ScrollData: TWMScroll); message wm_HScroll;
  22.   end;
  24. var
  25.   Form1: TForm1;
  27. implementation
  29. {$R *.DFM}
  31. procedure TForm1.FormResize(Sender: TObject);
  32. begin
  33.   Status.Label3.Caption := IntToStr(ClientWidth);
  34.   Status.Label4.Caption := IntToStr(HorzScrollBar.Position);
  35. end;
  37. procedure TForm1.FormScroll (var ScrollData: TWMScroll);
  38. begin
  39.   inherited;
  40.   Status.Label3.Caption := IntToStr(ClientWidth);
  41.   Status.Label4.Caption := IntToStr(HorzScrollBar.Position);
  42. end;
  44. end.