Class TMDIChild (unit Childwin) |
Inherits from
TForm
procedure Button1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
==============================================================================
procedure Exit2Click(Sender: TObject);
==============================================================================
procedure FormActivate(Sender: TObject);
==============================================================================
procedure FormClose(Sender: TObject; var Action: TCloseAction);
==============================================================================
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
==============================================================================
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
==============================================================================
procedure FormShow(Sender: TObject);
procedure ImageWindow1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
==============================================================================
Button1 : TSpeedButton;
HRuler1 : THRuler;
Image1 : TImage;
Panel1 : TPanel;
Panel2 : TPanel;
VRuler1 : TVRuler;
procedure Button1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
==============================================================================
procedure Exit2Click(Sender: TObject);
==============================================================================
procedure FormActivate(Sender: TObject);
==============================================================================
procedure FormClose(Sender: TObject; var Action: TCloseAction);
==============================================================================
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
==============================================================================
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
==============================================================================
procedure FormShow(Sender: TObject);
procedure ImageWindow1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
==============================================================================
Button1 : TSpeedButton;
HRuler1 : THRuler;
Image1 : TImage;
Panel1 : TPanel;
Panel2 : TPanel;
VRuler1 : TVRuler;