newform.pas

《Kylix程序设计》一书中附带的例程源代码

unit NewForm;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;

type
  TFrmNew = class(TForm)
    LstBoxComponents: TListBox;
    procedure FormActivate(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormDblClick(Sender: TObject);
    procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure FormConstrainedResize(Sender: TObject; var MinWidth,
      MinHeight, MaxWidth, MaxHeight: Integer);
    function FormHelp(HelpType: THelpType; HelpContext: THelpContext;
      const HelpKeyword, HelpFile: String; var Handled: Boolean): Boolean;
    procedure FormHide(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyString(Sender: TObject; var S: WideString;
      var Handled: Boolean);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormLoaded(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShortCut(Key: Integer; Shift: TShiftState;
      var Handled: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{
var
  FrmNew: TFrmNew;
}

implementation

uses FormType;

{$R *.xfm}

procedure TFrmNew.FormActivate(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnActivate event occurs.' );
end;

procedure TFrmNew.FormClick(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnClick event occurs.' );
end;

procedure TFrmNew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnClose event occurs.' );
end;

procedure TFrmNew.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnCloseQuery event occurs.' );
end;

procedure TFrmNew.FormCreate(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnCreate event occurs.' );
end;

procedure TFrmNew.FormDeactivate(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnDeactivate event occurs.' );
end;

procedure TFrmNew.FormDestroy(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnDestroy event occurs.' );
end;

procedure TFrmNew.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnDragDrop event occurs.' );
end;

procedure TFrmNew.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnDragOver event occurs.' );
end;

procedure TFrmNew.FormDblClick(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnDblClick event occurs.' );
end;

procedure TFrmNew.FormContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnContextPopup event occurs.' );
end;

procedure TFrmNew.FormConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnConstrainedResize event occurs.' );
end;

function TFrmNew.FormHelp(HelpType: THelpType; HelpContext: THelpContext;
  const HelpKeyword, HelpFile: String; var Handled: Boolean): Boolean;
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnHelp event occurs.' );
end;

procedure TFrmNew.FormHide(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnHide event occurs.' );
end;

procedure TFrmNew.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnKeyDown event occurs.' );
end;

procedure TFrmNew.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnKeyPress event occurs.' );
end;

procedure TFrmNew.FormKeyString(Sender: TObject; var S: WideString;
  var Handled: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnKeyString event occurs.' );
end;

procedure TFrmNew.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnKeyUp event occurs.' );
end;

procedure TFrmNew.FormLoaded(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnLoaded event occurs.' );
end;

procedure TFrmNew.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnMouseDown event occurs.' );
end;

procedure TFrmNew.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnMouseMove event occurs.' );
end;

procedure TFrmNew.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnMouseUp event occurs.' );
end;

procedure TFrmNew.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnMouseWheel event occurs.' );
end;

procedure TFrmNew.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnMouseWheelDown event occurs.' );
end;

procedure TFrmNew.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnMouseWheelUp event occurs.' );
end;

procedure TFrmNew.FormPaint(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnPaint event occurs.' );
end;

procedure TFrmNew.FormResize(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnResize event occurs.' );
end;

procedure TFrmNew.FormShortCut(Key: Integer; Shift: TShiftState;
  var Handled: Boolean);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnShortCut event occurs.' );
end;

procedure TFrmNew.FormShow(Sender: TObject);
begin
  if Assigned( FrmMain ) then
    FrmMain.LstBoxFormEvents.Items.Add( 'TFrmNew OnShow event occurs.' );
end;

end.