displayfra.pas

来自「《Delphi实例开发教程》源代码包说明」· PAS 代码 · 共 40 行

unit DisplayFra;

interface

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

type
  TfraDisplay = class(TFrame)
    lblType: TLabel;
    lblSource: TLabel;
    lblNum: TLabel;
    lblHead: TLabel;
    lblDatetime: TLabel;
    procedure FrameMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses DisplayFrm;

{$R *.dfm}

procedure TfraDisplay.FrameMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  i:Integer;
begin
  for i:=0 to 19 do
    DisplayFrm.lblItem[i][1].Font.Color:=clBlue;
end;

end.