u_fr_fk_printselect.pas

来自「一个很不错的人事考勤系统,功能齐全,附带源码.」· PAS 代码 · 共 36 行

unit U_Fr_fk_Printselect;

interface

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

type
  TFr_fk_printselect = class(TFrame)
    Panelbot: TPanel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses U_Fr_DM;

{$R *.DFM}

procedure TFr_fk_printselect.BitBtn3Click(Sender: TObject);
begin
  Panelbot.Visible:=false;
end;

end.