animasi dalam delpi

بسم الله ارحمن ارحيم Alhamdulillah, kembali saya mau berbagi ilmu dengan sahabat-sahabat, sederhana saja, ilmunya orang awwam. Tapi semoga bermanfaat, aamiin. Saya akan berbagi trik membuat Animasi Caption Bar pada form delphi, berikut screen shootnya 

Langsung saja kita menuju coding nya,

1. Deklarasikan variabel dan konstanta berikut yang berwarna merah

var

  Form1: TForm1;
  captionf: string;
  lagi : boolean;
const
  judul = 'Aplikasi Inventory';
implementation

{$R *.dfm}

2. Pada events FormOnCreate, ketik coding berikut

var

  i:byte;
begin
lagi := false;
for i:= 1 to Form1.Width do
  begin
    Insert(' ', captionf,1);
  end;
captionf := captionf+judul;

end;

3. Tambahkan Objek TTimer yang ada pada tab komponen System, ubah properties Interval menjadi 500, double klik pada objek TTimer kemudian ketik coding berikut:

var

  i:byte;
begin
if lagi = false then
  begin
    Delete(captionf,1,1);
    if length(captionf) = 0 then
      begin
        lagi := true;
      end
  end
else
  begin
    for i:= 1 to Form1.Width do
      begin
        Insert(' ', captionf,1);
      end;
    captionf := captionf+judul;
    if length(captionf) = length(captionf) then
      begin
        lagi := false;
      end
  end;
Form1.Caption := captionf;
end;
4. Simpan dan jalankan program, bila benar maka Caption Bar akan terlihat berjalan,

5. Berikut coding lengkapnya

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  captionf: string;
  lagi : boolean;
const
  judul = 'Aplikasi Inventory';
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i:byte;
begin
lagi := false;
for i:= 1 to Form1.Width do
  begin
    Insert(' ', captionf,1);
  end;
captionf := captionf+judul;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:byte;
begin
if lagi = false then
  begin
    Delete(captionf,1,1);
    if length(captionf) = 0 then
      begin
        lagi := true;
      end
  end
else
  begin
    for i:= 1 to Form1.Width do
      begin
        Insert(' ', captionf,1);
      end;
    captionf := captionf+judul;
    if length(captionf) = length(captionf) then
      begin
        lagi := false;
      end
  end;
Form1.Caption := captionf;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
ShowMessage('Sudah Disalin, silahkan di-paste aja');
end;

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

end.

Hanya itu yang bisa saya jelaskan, terima kasih,

Wassalamu 'Alaikum Wr. Wb

Read More

fauzi aziz

fauzi aziz

Read More

fauzi aziz

fauzi aziz

Read More

belajar membuat kemeja ternyata Asiix ugga ya..!!!!11

Read More

Read More

Demi kesuksesan

Aku bingung mau berbuat apa di masa sekarang ini,, menjadi mahasiswa ,, aku sudah mencoba mendapatkan nilai yang besar  tapi kenyata'annya berkata berbeda seperti yang ku harapkan AKu mendapatkan nilai yang setandar. aku belum merasa puas , sebab dengan jaman teknologi yang semakin canggih, hingga orang berlomba lomba mencari ilmu semakin tinggi dan orang pun berusahan membuka usaha sendiri , namun aku juga tak mau kalah aku berusaha menjadi pengusaha, namun setelah ku jalani dengn membuka usaha kecil kecilan , akan tetapi susah berkembang,, apakah mungkin berusaha menjadi orang sukses itu membutuhkan waktu yang sangat lama.??? Ya Allah berikan aku kesabaran untuk menjalani ni semua, Aku ingin menjadi Mahasiswa yg aku harapkan dan yang orang tua ku harap kan , aku ingin mendapatkan nilai yang besar dan mendapatkan pengalaman yang banyak di masa aku menjadi mahasiswa. Ya Allah berikan aku kesuksesan kaelancaran dan kebarokahan untuk menjalani ini semua. Amin..
Aku ingin setelah ku nanti menjadi seorang sarjana , Aku bisa menjadi pengusaha,, minimal bisa bekerja di perusaha'an yang bisa menjamin kehidupan ku di masa yang akan datang.

Read More

Read More