Rizq Technology - Exploring Your iDea. » Delphi http://rizqtech.net All about My Experiences, Knowledge and Thoughts. Sat, 14 Jan 2012 17:20:57 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 Delphi Basic#4 http://rizqtech.net/2009/04/26/delphi-basic41/ http://rizqtech.net/2009/04/26/delphi-basic41/#comments Sun, 26 Apr 2009 15:24:24 +0000 Rizky http://rizqtech.net/?p=568 Latihan kali ini kita membuat sebuah tampilan menu pada window yang di gunakan dalam berbagai aplikasi.

Membuat 1 Form dengan Source Code :


unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Menu11: TMenuItem;
itemsmenu11: TMenuItem;
itemsmenu21: TMenuItem;
N1: TMenuItem;
itemmenu4CtrlF11: TMenuItem;
itemsmenu4CtrlShiftF11: TMenuItem;
itemsmenu51: TMenuItem;
itemsmenu61: TMenuItem;
Exit1: TMenuItem;
EXIT2: TMenuItem;
Menu21: TMenuItem;
itemsmenu12: TMenuItem;
itemsmenu22: TMenuItem;
itemsmenu23: TMenuItem;
itemsmenu31: TMenuItem;
procedure itemsmenu11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.itemsmenu11Click(Sender: TObject);
var
MenuItem : TMenuItem;
Pilihan : integer;
MenuPopUp, ItemMenu : integer;
str : string;
begin
Menuitem:= Sender as TmenuItem;
Pilihan:= MenuItem.Tag;

//mencari menu dan item menu yang di pilih

if (Pilihan >10) then
MenuPopup:=2
else
MenuPopup:=1;

if (Pilihan >10) then
ItemMenu:=Pilihan - 10
else
ItemMenu :=Pilihan;

//menginisialisasi string yang di tampilkan

str:='Menu'+ IntToStr(MenuPopup) + 'Item Menu' +
IntToStr (ItemMenu) + 'dipilih or clicked';

//menampilkan kotak pesan
Application.MessageBox(PChar (Str), 'Informasi',
MB_OK or MB_ICONINFORMATION);
end;

end.

SCREENSHOOT BELOW :

items-menu

items-menu-info-popup
Kesimpulan :

Metode ini adalah basic dari membuat tampilan menu pada window.

Random Posts

]]> http://rizqtech.net/2009/04/26/delphi-basic41/feed/ 0 Delphi Basic#5 http://rizqtech.net/2009/04/26/delphi-basic5/ http://rizqtech.net/2009/04/26/delphi-basic5/#comments Sun, 26 Apr 2009 14:10:48 +0000 Rizky http://rizqtech.net/?p=562 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 :

scr-1-lat-window-new

scr-2-lat-window-new

scr-3-lat-window-new

Kesimpulan :

Metode ini adalah basic untuk membuat window/jendela baru pada aplikasi delphi.

Related Post

]]> http://rizqtech.net/2009/04/26/delphi-basic5/feed/ 0 Delphi Basic#3 http://rizqtech.net/2009/04/19/delphi-basic3/ http://rizqtech.net/2009/04/19/delphi-basic3/#comments Sun, 19 Apr 2009 08:10:06 +0000 Rizky http://rizqtech.net/?p=523 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 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 :

bulan-if

Related Post

]]> http://rizqtech.net/2009/04/19/delphi-basic3/feed/ 0 Delphi Basic#2 http://rizqtech.net/2009/04/19/delphi-basic2/ http://rizqtech.net/2009/04/19/delphi-basic2/#comments Sun, 19 Apr 2009 08:04:53 +0000 Rizky http://rizqtech.net/?p=518 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 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 :

hari-if

Related Post

]]> http://rizqtech.net/2009/04/19/delphi-basic2/feed/ 1 Delphi Basic#1 http://rizqtech.net/2009/03/24/4gl-multi-tier-with-delphi/ http://rizqtech.net/2009/03/24/4gl-multi-tier-with-delphi/#comments Tue, 24 Mar 2009 14:17:29 +0000 Rizky http://rizqtech.net/?p=495 #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, 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

Screenshoot 2

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

Screenshoot 3

Related Post

]]> http://rizqtech.net/2009/03/24/4gl-multi-tier-with-delphi/feed/ 3