Delphi Basic#5
Sun, Apr 26, 2009
Sekarang kita mencoba untuk membuat form yang mempunyai kegunaan untuk menampilkan Window pada Menu yang sering jumpai, semisal untuk membuat jendela baru pada IE or Firefox.
=> Pertama kita membuat FormInduk untuk tempat menu yang akan kita tambahkan nanti.
=> Kedua kita membuat FormAnak sebagai window yang akan di tambahkan di dalam FormInduk.
Source code at main.pas / FormInduk
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TFormInduk = class(TForm)
MainMenu1: TMainMenu;
Jendela1: TMenuItem;
Jen1: TMenuItem;
Keluar1: TMenuItem;
Jendela2: TMenuItem;
Bertingkat1: TMenuItem;
Berubin1: TMenuItem;
Aturikon1: TMenuItem;
utupSemua1: TMenuItem;
procedure Jen1Click(Sender: TObject);
procedure Keluar1Click(Sender: TObject);
procedure Bertingkat1Click(Sender: TObject);
procedure Berubin1Click(Sender: TObject);
procedure Aturikon1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure utupSemua1Click(Sender: TObject);
private
jumlah : integer;
public
{ Public declarations }
end;
var
FormInduk: TFormInduk;
implementation
uses Unit2;
{$R *.dfm}
procedure TFormInduk.Jen1Click(Sender: TObject);
var
Unit2 : TFormAnak;
begin
Unit2:= TFormAnak.Create(Self);
inc (jumlah);
unit2.Caption := 'Jendela Anak ke -' + IntToStr (Jumlah);
end;
procedure TFormInduk.Keluar1Click(Sender: TObject);
begin
Close;
end;
procedure TFormInduk.Bertingkat1Click(Sender: TObject);
begin
Cascade;
end;
procedure TFormInduk.Berubin1Click(Sender: TObject);
begin
Tile;
end;
procedure TFormInduk.Aturikon1Click(Sender: TObject);
begin
ArrangeIcons;
end;
procedure TFormInduk.FormCreate(Sender: TObject);
begin
Jumlah :=0;
end;
procedure TFormInduk.utupSemua1Click(Sender: TObject);
var
i,Jumlah : integer;
begin
Jumlah := MDIChildCount - 1;
for i := Jumlah downto 0 do
MDIChildren[i].Close;
end;
end.
Source code unit2.pas/FromAnak
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFormAnak = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAnak: TFormAnak;
implementation
{$R *.dfm}
procedure TFormAnak.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
end.
SCREENSHOOT BELOW :
Kesimpulan :
Metode ini adalah basic untuk membuat window/jendela baru pada aplikasi delphi.
Leave a Reply