| Rob Solomon 2005-02-14, 4:01 am |
| The following is from the mini-Delphi course at about.com. I am unable
to figure out how to use the FormClose procedure that is included. The
CloseAll menu item minimizes forms. The lesson says that the FormClose
procedure is needed to close forms but I don't know how to include this
procedure.
Any help would be appreciated.
Thanks
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Child, Menus;
type
TMainFr = class(TForm)
MainMenu1: TMainMenu;
F1: TMenuItem;
NewChild: TMenuItem;
CloseAll: TMenuItem;
Window: TMenuItem;
CascadeOption: TMenuItem;
TileOption: TMenuItem;
ArrangeAll: TMenuItem;
procedure NewChildClick(Sender: TObject);
procedure CloseAllClick(Sender: TObject);
procedure CascadeOptionClick(Sender: TObject);
procedure TileOptionClick(Sender: TObject);
procedure ArrangeAllClick(Sender: TObject);
private
{ Private declarations }
procedure CreateChildForm (const childName : string);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
public
{ Public declarations }
end;
var
MainFr: TMainFr;
implementation
{$R *.dfm}
procedure TMainFr.CreateChildForm
(const childName : string);
var Child: TChildFr;
begin
Child := TChildFr.Create(Application);
Child.Caption := childName;
end;
procedure TMainFr.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TMainFr.NewChildClick(Sender: TObject);
begin
CreateChildForm('Child '+IntToStr(MDIChildCount+1));
end;
procedure TMainFr.CloseAllClick(Sender: TObject);
var i: integer;
begin
for i:= 0 to MdiChildCount - 1 do MDIChildren[i].Close;
end;
procedure TMainFr.CascadeOptionClick(Sender: TObject);
begin
Cascade;
end;
procedure TMainFr.TileOptionClick(Sender: TObject);
begin
Tile;
end;
procedure TMainFr.ArrangeAllClick(Sender: TObject);
begin
ArrangeIcons;
end;
end.
|