Rizq Technology – Exploring Your iDea.

All about My Experiences, Knowledge and Thoughts.

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, 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

Categories: Delphi
Rubiyanto
Mohon ijin, saya mau ngopy materi yang ada di blog anda untuk saya gunakan sebagai bahan tambahan untuk materi kuliah saya. Atas ijin yang diberikan saya ucapkan terima kasih.
25 January 10 at 09:43
Rizky
@rubiyanto: Silahkan…, semoga artikel di atas bisa membantu ;)
25 January 10 at 10:01
Ya he visto algunos hay …
Gracias

Garretot
13 April 10 at 20:33