Class TForm1 (unit Sysmenuu)

Inherits from

TForm

Constructors



Functions

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure MyMessageHandlerprocedure (var Msg: TMsg; var Handled: Boolean);


Properties

Events

Variables

Label1 : TLabel;


SpeedButton1 : TSpeedButton;


BitM : TBitmap;



Constructors


Functions


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure MyMessageHandlerprocedure (var Msg: TMsg; var Handled: Boolean);


Properties


Events


Variables


Label1 : TLabel;


SpeedButton1 : TSpeedButton;


BitM : TBitmap;