Program arah sederhana

Program ini merupakan program pertama saya dengan menggunakan IDE Delphi 7. Penjelasan yang menarik dari dosen dan hasil yang nyata bangat membuat naluri coding saya tumbuh. Cukup bermain dengan form pada Delphi bisa membuat program sederhan ini jadi lumayan seru.

apabila kita menekan tombol kanan pojok atas maka si program akan pindah ke kanan pojok atas.

1

dan bila kita menekan tombol tengah bawah maka si program akan pindah ke tengah bawah dari tampilan monitor kita.
2

Berikut adalah listing kodenya :


unit Unit1;

interface

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

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
left:=0;
top:=0;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
left:=0;
top:=(screen.Height-height) div 2;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
left:=0;
top:=screen.height-height;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
top:=0;
left:=(screen.Width-width) div 2;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
top:=0;
left:=screen.Width-width;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
top:=(screen.Height-height) div 2;
left:=screen.Width-width;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
top := screen.Height-height;
left := screen.width-width;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
top := screen.Height-height;
left := (screen.width-width) div 2;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

klik [download] untuk mendapatkannya…

semoga bermanfaat…

Iklan

Silahkan Komentar...

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s