Archive for the ‘Contoh Program’ Category


Bagaimana cara membuat Judul sebuah program pada delphi agar bisa berjalan seperti pada website ?? hmm,, untuk membuat agar tulisan bisa berjalan pada caption yang harus kita butuhkan adalah sebuah “Timer”. Langkah pertama yang harus dilakukan adalah jalankan delphi 6 atau 7 lalu ketik sintaks dibawah ini :

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Old_Title : String;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := ‘Selamat Belajar Delphi ‘;
Old_Title := Application.Title;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
temp : string;
begin
Temp := Application.Title;
Temp := Temp+Temp[1];
Temp := Copy(Temp,2,length(temp)-1);
Application.Title := temp;
Form1.Caption:=temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := NOT Timer1.Enabled;
if Timer1.Enabled = False then
begin
Application.Title := Old_Title;
Form1.Caption := Old_Title;
end;
end;

end.

setelah selesai jalankan dengan menekan tombol F9.

Advertisements

Animasi form delphi

Posted: May 12, 2010 in Contoh Program
Tags:

Disini saya ingin menjelaskan bagaimana cara membuat Animasi Form pada project delphi yang kita buat agar tampilan form tersebut lebih unik dan menarik. Tapi sebelum lanjut buat para master delphi mohon jangan diejek ya tulisanku maklum karena “NewBie”. Sebelum memulai Animasi Project, Open delphi – File New Application setelah itu ketik syntax dibawah ini :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActnList, ComCtrls, Menus;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure Animasi(Pilih : Byte);
Var i, j, BandingLebar, BandingTinggi,
myWidth, myHeight: LongInt;
Const Pembagi : LongInt = 200;
begin
myWidth := Form1.Width ;
myHeight := Form1.Height;
Form1.AlphaBlend := True;
BandingLebar := myWidth Div Pembagi;
BandingTinggi := myHeight Div Pembagi;
For i := 1 To Pembagi Do
Begin
If Pilih = 1 Then
Begin
Form1.AlphaBlendValue := i + 55;
Form1.Width := BandingLebar * i;
Form1.Height := BandingTinggi * i;
End
Else
Begin
Form1.AlphaBlendValue := 255 -(i + 55);
Form1.Width := BandingLebar * (pembagi – i);
Form1.Height := BandingTinggi * (pembagi – i);
End;
Form1.Left := (Screen.Width – Form1.Width) div 2;
Form1.Top:=(Screen.Height – Form1.Height) div 2;
Form1.Show;
End;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
Animasi (1);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Animasi (2);
end;

end.

Setelah selesai lalu save dan jalankan dengan menekan tombol F9 lihat animasi yang ditampilkan.