S.A. arkadaşlar. Kayan yazı yapmak fatih hocamızın dediği gibi <MARQUEE scrollamount="1" direction="up" width="120" height="20">www.delphidunyasi.net</MARQUEE> şeklinde oluyor. Ama veri tabanımıza ait tüm bilgileri yukarı doğru kayan yazı şeklinde görmek istersek bu tek satırlık kod yetmiyor maalesef. Neyse fazla uzatmadan anlatayım.
- Delphi 2005 ASP.Net  ve FireBird veri tabanı kullanıyorum.
1.Adım) Öncelikle sayfamızı ToolPalette - WebControls yaprağından bir adet Table yerleştiyoruz ve buna 1 Row ve bu row a da 4 adet Cells yerleştirdik (Benim veri tabanımdan 4 bilgi aldığım için isterseniz + - yapabilirsiniz.)
2.Adım) Gerekli görsel düzenlemeleri yaptıktan sonra (ben bir procedure ile yaptım) veri tabanımızdan bilgileri okuyup tablelerim cell.text lerine aktarıyoruz.
3.Adım)
procedure TWebForm1.tabloyap;
var
 FbBaglan : FbConnection;
 Okuyucu : FbDataReader;
 FbKomut : FbCommand;
 SqlCumlesi : string;
 mesaj1,mesaj2,mesaj3,mesaj4 : AnsiString;
begin
 FbBaglan := FbConnection.Create(FbConStr);
 FbBaglan.Open;
 SqlCumlesi := 'SELECT * FROM CHEAP ORDER BY TARIH ASC';
 FbKomut := FbCommand.Create(SqlCumlesi, FbBaglan);
 Okuyucu := FbKomut.ExecuteReader;
 mesaj1 := ''; mesaj3 := ''; mesaj2 := ''; mesaj4 := '';
 while Okuyucu.Read do
 begin
   mesaj1 := mesaj1 + Okuyucu['TARIH'].ToString +'<br>';
   mesaj2 := mesaj2 + Okuyucu['YER'].ToString +'<br>';
   mesaj3 := mesaj3 + Okuyucu['YER2'].ToString +'<br>';
   mesaj4 := mesaj4 + Okuyucu['FIYAT'].ToString +'<br>';
 end;
 Okuyucu.Close;
 FbBaglan.Close;
 Table1.Rows[0].Cells[0].Text := '<MARQUEE scrollamount="1" direction="up" width="60" height="166">'+mesaj1+'</MARQUEE>';
 Table1.Rows[0].Cells[1].Text := '<MARQUEE scrollamount="1" direction="up" width="120" height="166">'+mesaj2+'</MARQUEE>';
 Table1.Rows[0].Cells[2].Text := '<MARQUEE scrollamount="1" direction="up" width="120" height="166">'+mesaj3+'</MARQUEE>';
 Table1.Rows[0].Cells[3].Text := '<MARQUEE scrollamount="1" direction="up" width="70" height="166">'+mesaj4+'</MARQUEE>';
end;
-- Dikkat ederseniz Cell lerin textlerine MARQUEE ile birlikte yaptık. EÄŸer veri tabanı bilgileriniz çok fazla ise biraz geç olabiliriz söylemedi demeyin.
Kolay Gelsin. örnek olarak www.batmanotoemlak.com sitesini ziyaret edebilirsiniz.