=> 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.

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
nilai: TEdit;
Label2: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if nilai.Text=’1?then
label2.Caption:=’January’
else if nilai.Text=’2?then
label2.Caption:=’February’
else if nilai.Text=’3?then
label2.Caption:=’March’
else if nilai.Text=’4?then
label2.Caption:=’April’
else if nilai.Text=’5?then
label2.Caption:=’May’
else if nilai.Text=’6?then
label2.Caption:=’Juny’
else if nilai.Text=’7?then
label2.Caption:=’July’
else if nilai.Text=’8?then
label2.Caption:=’August’
else if nilai.Text=’9?then
label2.Caption:=’September’
else if nilai.Text=’10?then
label2.Caption:=’October’
else if nilai.Text=’11?then
label2.Caption:=’November’
else if nilai.Text=’12?then
label2.Caption:=’December’
else label2.Caption:=’Inputan Anda Salah’;
end;
end.

SCREENSHOOT BELOW :

Case-nya : Bagaimana menentukan Hari Berdasarkan Bilangan yang di input ?

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

nilai: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if nilai.text=’1? then

begin

label2.Caption:=’Senin’;

end

else if nilai.text=’2? then

begin

label2.Caption:=’Selasa’;

end

else if nilai.text=’3? then

begin

label2.Caption:=’Rabu’;

end

else if nilai.text=’4? then

begin

label2.Caption:=’Kamis’;

end

else if nilai.text=’5? then

begin

label2.Caption:=’Jumat’;

end

else if nilai.text=’6? then

begin

label2.Caption:=’Sabtu’;

end

else if nilai.text=’7? then

begin

label2.Caption:=’Minggu’;

end else

label2.Caption:=’Inputan anda Salah !’;

end;

end.

SCREENSHOOT BELOW :

1.How to create simple pop up Welcome Text in Delphi ?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure formclick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.formclick(Sender: TObject);
begin
Application.MessageBox('Welcome to Delphi and Rizq Technology','Information',MB_OKCancel or MB_ICONINFORMATION);

end;

end.

2. How to create simple button with text appear ?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button4: TButton;
procedure formclick(Sender: TObject);
procedure formclose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.formclick(Sender: TObject);
begin
Application.MessageBox('Welcome to Delphi and Rizq Technology','Information',MB_OKCancel or MB_ICONINFORMATION);

end;

procedure TForm1.formclose(Sender: TObject; var Action: TCloseAction);
begin
Application.MessageBox('Mau kemana Bro....!!','WARNING!!!',MB_ICONINFORMATION);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
edit1.Text:='Saya';
end;

procedure TForm1.Button2Click(Sender:TObject);
begin
edit2.Text:='Belajar';
end;

procedure TForm1.Button3Click(Sender:TObject);
begin
edit3.Text:='Delphi';
end;

procedure TForm1.Button4Click(Sender:Tobject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

end.

SCREENSHOOT

3.How to Create button affected changed background color ?

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm3 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Color:=clyellow
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
form3.Color:=clred
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
form3.Color:=clgreen
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
application.Terminate;
end;

end.

SCREENSHOOT