Arsip: Tulisan berjalan di form Delphi


by saysansay in Articles more 19 years ago 3572
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.

AI Forward

๐Ÿš€ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

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