Rizq Technology – Exploring Your iDea.

#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

Related Post

• Delphi Basic#5
• Delphi Basic#3
• Delphi Basic#2