Rizq Technology – Exploring Your iDea.

Delphi Basic#5

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 / [...]

Delphi Basic#3

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 [...]

Delphi Basic#2

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 [...]

Delphi Basic#1

#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, [...]