Formun Başlığına Kayan Yazı Ekleyen Kod

Yazan:
6 Ekim 2010
Reklam Alanı

var
Form1: TForm1;
a: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a := ‘Ne mutlu Türküm diyene!…’;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption     := a;
for i := 1 to (Length(a) – 1) do
a := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];


end;

end.

Benzer Yazılar:

  1. ASCII Kodlarını Bulmak
  2. Listbox İtemlerinin Sırasını Mause ile sürükleyerek Değiştirmek
  3. Ekran Klavyesi
  4. Delphi ile Mp3 dosya çalmak çaldırmak
  5. Dosya Uzantısından Programın Tespiti
  6. Tüm Dosya ve Klasörlerin Listesini Almak
  7. Yazılan Fiyatı Metine Çevirmek
  8. Merkez Bankasindan Gunluk Doviz Kurlarini Alma Kodu
  9. Bilgisayardaki Sürücü Listesini Almak
  10. Dataset ten XML e aktarım
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası