Tulisan Berjalan Marquee

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Left := Label1.Left -2;  //Nilai (2) tingkat kecepatan bergerak
  if label1.Left <= -200 then     
   label1.Left := 422;
end;

Jam Analog Delphi

1. Masukkan Label dan Timer
2. double klik timer 
3. ketik

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.caption:=timetostr(time);

end;

4.jalankan program

Menjalankan Aplikasi Dari Delphi

Be sure to add ShellApi to your Unit's uses clause.

Run Notepad

 uses ShellApi;
 ...
 ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ; 

Open SomeText.txt with Notepad

 ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\SomeText.txt', nil, SW_SHOWNORMAL) ;

Display the contents of the "DelphiDownload" folder

 ShellExecute(Handle,'open', 'c:\DelphiDownload', nil, nil, SW_SHOWNORMAL) ; 

Execute a file according to its extension.

 ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ; 

Tulisan Berjalan Delphi

Tulisan berjalan pada delphI

===============================================================

sekedar contoh sederhana:

tinggal tambahkan Component TTimer dan panggil di event OnTimer

MyBannerVer01('Tulisan berjalan');

{hasilnya tulisan berjalan bolak balik}


function MyBannerVer01(Text: String): String;
var
panjang,Akhir : integer;
begin
panjang := Length(Text);
Akhir := panjang * 2 + 2+ Delay;
if z <= panjang then
begin
Result := copy(Text,1,z);
inc(z);
end else
if z >= panjang then
begin
delete(Text,1,z-panjang);
Result := Text;
inc(z);
end;
if z = Akhir then z := 0;

end;


sekedar contoh sederhana:

tinggal tambahkan Component TTimer dan panggil di event OnTimer

MyBannerVer01('Tulisan berjalan');

{hasilnya tulisan berjalan bolak balik}


function MyBannerVer01(Text: String): String;
var
panjang,Akhir : integer;
begin
panjang := Length(Text);
Akhir := panjang * 2 + 2+ Delay;
if z <= panjang then
begin
Result := copy(Text,1,z);
inc(z);
end else
if z >= panjang then
begin
delete(Text,1,z-panjang);
Result := Text;
inc(z);
end;
if z = Akhir then z := 0;

end;