Rizq Technology – Exploring Your iDea.

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

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

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

Garretot

Ya he visto algunos hay …
Gracias

Garretot

13 April 10 at 20:33

Write a comment..

Name

Email

Website