100 lines
2.1 KiB
ObjectPascal
100 lines
2.1 KiB
ObjectPascal
unit uForm2 ;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
Buttons ;
|
|
|
|
type
|
|
|
|
{ TForm2 }
|
|
|
|
TForm2 = class(TForm)
|
|
bClose : TButton ;
|
|
bToggle1 : TButton ;
|
|
bToggle2 : TButton ;
|
|
CheckBox1 : TCheckBox ;
|
|
Edit1 : TEdit ;
|
|
Edit2 : TEdit ;
|
|
Label1 : TLabel ;
|
|
Label2 : TLabel ;
|
|
procedure bCloseClick(Sender : TObject) ;
|
|
procedure bToggle1Click(Sender : TObject) ;
|
|
procedure CheckBox1Change(Sender : TObject) ;
|
|
procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;
|
|
procedure FormCloseQuery(Sender : TObject ; var CanClose : boolean) ;
|
|
procedure FormDestroy(Sender : TObject) ;
|
|
procedure FormHide(Sender : TObject) ;
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
procedure FormShow(Sender : TObject) ;
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end ;
|
|
|
|
var
|
|
Form2 : TForm2 ;
|
|
|
|
implementation
|
|
|
|
Uses uMainForm;
|
|
|
|
{ TForm2 }
|
|
|
|
procedure TForm2.FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;
|
|
begin
|
|
fMainForm.mEvents.Lines.Add( 'Form2.Close' );
|
|
end;
|
|
|
|
procedure TForm2.bCloseClick(Sender : TObject) ;
|
|
begin
|
|
Close;
|
|
ClientRect;
|
|
end;
|
|
|
|
procedure TForm2.bToggle1Click(Sender : TObject) ;
|
|
begin
|
|
bToggle1.Enabled := not bToggle1.Enabled;
|
|
bToggle2.Enabled := not bToggle1.Enabled;
|
|
end;
|
|
|
|
procedure TForm2.CheckBox1Change(Sender : TObject) ;
|
|
begin
|
|
Edit1.Enabled := CheckBox1.Checked;
|
|
end;
|
|
|
|
procedure TForm2.FormCloseQuery(Sender : TObject ; var CanClose : boolean) ;
|
|
begin
|
|
fMainForm.mEvents.Lines.Add( 'Form2.CloseQuery: '+BoolToStr(CanClose,'True','False') );
|
|
end;
|
|
|
|
procedure TForm2.FormDestroy(Sender : TObject) ;
|
|
begin
|
|
fMainForm.mEvents.Lines.Add( 'Form2.Destroy' );
|
|
end;
|
|
|
|
procedure TForm2.FormHide(Sender : TObject) ;
|
|
begin
|
|
fMainForm.mEvents.Lines.Add( 'Form2.Hide' );
|
|
end;
|
|
|
|
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
|
|
);
|
|
begin
|
|
fMainForm.mEvents.Lines.Add( 'Form2.FormKeyDown');
|
|
end;
|
|
|
|
procedure TForm2.FormShow(Sender : TObject) ;
|
|
begin
|
|
fMainForm.mEvents.Lines.Add( 'Form2.Show' );
|
|
end;
|
|
|
|
{$R *.lfm}
|
|
|
|
end.
|
|
|