Menampilkan Text berjalan dalam Delphi 7

Read more »

Membuat Animasi Form pada delphi 7

bagi kalian yang suka memperindah tampilan form pada delphi 7 anda gunakan kode skrip di bawah ini.....

code:
unit Unit1;

interface

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

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}

//================Batas Awal Kode Utama===================
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;
//===============Batas Akhir Kode Utama====================

end.

Read more »

Mempercantik Tampilan Form pada delphi 7

Bagi anda yang sering mengotakatik program delphi 7 sebagai bahan belajar pemrograman dasar mestinya sangat ingin menjadikan tampilan form lebih menarik...ini sebagian tampilan form yang bisa di tampilkan pada form program delphi 7....

Kuncinya adalah:

1. Buat sebuah gambar berupa file bitmap yang akan dijadikan background form, beri warna yang sama untuk  area gambar yang tidak akan ditampilkan, biasanya berwarna merah atau merah muda (fuschia/pink).
2. Tempatkan sebuah TImage dan load gambar bitmap yang dimaksud, atur ukuran Form dan posisi TImage sedemikian rupa agar sesuai dengan ukuran gambar. (Tips. untuk memperkecil ukuran file exe, sebaiknya gambar di load saat aplikasi berjalan/runtime)
3. Ubah property TForm dan TImage  pada saat form diciptakan :

procedure TForm1.FormCreate(Sender: TObject); begin  // Set form position to center of the screen  Position:= poScreenCenter;    // Hide form border  BorderStyle:= bsNone;    // Make tranparent form  TransparentColor:= True;  TransparentColorValue:= clFuchsia;  Color:= clFuchsia;    // Make a seethrough form  AlphaBlend:= True;  AlphaBlendValue:= 200;    // Load image from file (splash.bmp)  Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'splash.bmp');  Image1.Transparent:= True; end;

Selamat Mencoba !

Read more »