os.pas

来自「Captor network, a small program for capt」· PAS 代码 · 共 37 行

unit os;

interface

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

type
  Tosf = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  osf: Tosf;

implementation

uses menu;

{$R *.DFM}

procedure Tosf.FormShow(Sender: TObject);
begin
edit1.clear;
end;

end.