Arsip: Tulisan berjalan di form Delphi


by saysansay in Articles more 15 years ago 2790
Dalam pembuatan suatu aplikasi/software kadang kita membutuhkan tulisan yang berjalan secara horizontal. Baik berbentuk informasi atau kebutuhan lainnya. Didelphi kita dapat membuat huruf berjalan baik diatas form maupun ditempat lainnya.
Palet yang diguanakan antara lain Timer, label...ini pokok utama,dalam membuat huruf berjalan. Untuk lenih jelasnya saya melampirkan contoh yang sangat sederhana sekali, mungkin bisa bermanfaat bagi kita semua Souuce codenya seperti ini
unit Uarticel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
i,k : integer;//deklarasi Secara Global
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
s:shortstring;
c:char;
p:byte;
begin
s:=label1.Caption;
p:=length(s);
c:=s[p];
delete(s,p,1);
label1.caption:=c+s;
i:=i+1;
if i=10 then
begin
k:=k+1;
if k>2 then
k:=0;
i:=0;
end;
end;
end.

selamat mencoba.

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com