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 / [...]
Di Post sebelumnya kita sudah coba menggunakan Selection pada Delphi utk menentukan Hari , Let’s try utk Menentukan BULAN.
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 [...]
Bagaimana mencari atau selection pada Delphi, berikut contoh di bawah ini menggunakan ekspresi “IF ELSE”
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 [...]
#CHAPTER 1
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, [...]
Sunday, April 26, 2009
0 Comments