borsa izleme ekranı gibi bir ekran yapma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
delphist
Üye
Mesajlar: 595
Kayıt: 05 Oca 2005 04:34

borsa izleme ekranı gibi bir ekran yapma

Mesaj gönderen delphist »

S.a. Arkadaşlar. Veritabanı tarafından sp ile ratingine göre stok kartlarını her 5 dakkada güncellenecek şekilde ayarlarım. Delphi tarafındada borsa daki fiyat ve artış ekranları gibi real time çalışan bir program yazmak istiyorum. Bu nesnelerin akışını ve düzeninini nasıl sağlayabilirim. Teşekkürler
Kullanıcı avatarı
lazio
Moderator
Mesajlar: 1527
Kayıt: 11 Tem 2003 04:55
Konum: İstanbul

Mesaj gönderen lazio »

Jedi komponent setindeki JvSecretPanel sanırım işini görür..
DeveloperToolKit

..::|YeşilMavi|::..
Kullanıcı avatarı
delphist
Üye
Mesajlar: 595
Kayıt: 05 Oca 2005 04:34

Mesaj gönderen delphist »

s.a. lazio kardeş jedi içinde bu bileşen ilealakalı bi örnek bulamadım...Acaba sizin yaptığınız örnekler var mı kullanım şekli...vs...Teşekkür ederim.
Kullanıcı avatarı
lazio
Moderator
Mesajlar: 1527
Kayıt: 11 Tem 2003 04:55
Konum: İstanbul

Mesaj gönderen lazio »

bu bileşenin TMemo da olduğu Lines özelliğine bişeyler yazıyorsun..
ve Active = True yapındada yazığınız metin kayan yazı gibi oluyor.
dikey yada yatak kaydırma imkanınız var, hızınıda ayarlayabiliyorsunuz
DeveloperToolKit

..::|YeşilMavi|::..
Kullanıcı avatarı
delphist
Üye
Mesajlar: 595
Kayıt: 05 Oca 2005 04:34

Mesaj gönderen delphist »

Lazio kardeş teşekkür ediyorum...açıklaman için....Allah razı olsun... :)
yakupk
Üye
Mesajlar: 59
Kayıt: 04 Haz 2004 11:22
Konum: Balıkesir
İletişim:

Mesaj gönderen yakupk »

şu anda jedi komponentleri ücretlimidir? iyi çalışmalar.
Kullanıcı avatarı
barutali
Üye
Mesajlar: 297
Kayıt: 02 Tem 2007 02:30

Mesaj gönderen barutali »

al hocam component standart paletine register oluyor

http://rapidshare.com/files/59959721/Border.rar.html


timer a bu kodu yazarsanda yazıyı kaydırır. caption ı yazarken biraz boşluk bırakarak yazarsan daha hoş duruyo

Kod: Tümünü seç

led.caption:='               www.delphiturkiye.com';  gibi
led.Caption:=COPY(led.Caption,2,LENGTH(led.Caption)-1)+led.Caption[1];
buda caps


Resim[/img]
amatör küme programcı :D
yakupk
Üye
Mesajlar: 59
Kayıt: 04 Haz 2004 11:22
Konum: Balıkesir
İletişim:

Mesaj gönderen yakupk »

led componentini aldım, fakat jediyi denemek istiyorum indirdim içinde bir sürü paket var hangisini kuracaz birde bu jedi ücretlimi ?
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

yakupk yazdı:led componentini aldım, fakat jediyi denemek istiyorum indirdim içinde bir sürü paket var hangisini kuracaz birde bu jedi ücretlimi ?

viewtopic.php?t=7702&highlight=jedi
type
Tform1 = class(Tform)
yakupk
Üye
Mesajlar: 59
Kayıt: 04 Haz 2004 11:22
Konum: Balıkesir
İletişim:

Mesaj gönderen yakupk »

sağolun makaleyi okudum fakat şöyle bir soun çıktı delphi 6.0 update 2 lazım diyor jedi için, borlandın sayfasından ancak register kullanıcılar indirebiliyor, bunu bulma imkanımız var mı adres istemiyorum nette varmıdır yok mudur?
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

yakupk yazdı:sağolun makaleyi okudum fakat şöyle bir soun çıktı delphi 6.0 update 2 lazım diyor jedi için, borlandın sayfasından ancak register kullanıcılar indirebiliyor, bunu bulma imkanımız var mı adres istemiyorum nette varmıdır yok mudur?
Delphi 6.0 'da jedi kurmayı hiç denemedim. emule,ares tarzı p2p kullanıyorsan birde şansını orda dene derim. eğer sorunun kesin bundan kaynaklandığına inanıyorsan.
type
Tform1 = class(Tform)
yakupk
Üye
Mesajlar: 59
Kayıt: 04 Haz 2004 11:22
Konum: Balıkesir
İletişim:

Mesaj gönderen yakupk »

açıkçası bana sağlam kayan yazı componenti lazım bildiiniz jedi harici kayan yazı componenti varsa oda olur.
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

forma bir adet TTimer, TLabel,TEdit ve bir tane TButton Koy isimlerini değiştirme
aşağıdaki kod bloklarını uygula
form1.show

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
begin
  Label1.Left := Self.Width - Label1.Width-8;
  Label1.Top := 0;
  Label1.Caption := Edit1.Text;
end;
timer1.ontimer

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if Label1.Left = 0-Label1.Width then
   Label1.Left := Self.Width - Label1.Width-8;
   Label1.Left := Label1.Left-1;
end;
button1.onclick

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := False;
Label1.Caption := Edit1.Text;
Label1.Left := Self.Width - Label1.Width-8;
Timer1.Enabled := True;
end;
timer invertal'ı düşürerek hızı ayarlarsın
ben forma uyguladım sen ilgili kodları kayan yazı yapacağın panele uygularsın kolay gelsin
type
Tform1 = class(Tform)
Cevapla