borsa izleme ekranı gibi bir ekran yapma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
borsa izleme ekranı gibi bir ekran yapma
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
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
buda caps
[/img]
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];

amatör küme programcı 

-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden
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)
Tform1 = class(Tform)
-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden
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.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?
type
Tform1 = class(Tform)
Tform1 = class(Tform)
-
- Üye
- Mesajlar: 401
- Kayıt: 22 Tem 2004 02:03
- Konum: sıkıntı çekmişlere yakın bi yerden
forma bir adet TTimer, TLabel,TEdit ve bir tane TButton Koy isimlerini değiştirme
aşağıdaki kod bloklarını uygula
form1.show
timer1.ontimer
button1.onclick
timer invertal'ı düşürerek hızı ayarlarsın
ben forma uyguladım sen ilgili kodları kayan yazı yapacağın panele uygularsın kolay gelsin
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;
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;
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;
ben forma uyguladım sen ilgili kodları kayan yazı yapacağın panele uygularsın kolay gelsin
type
Tform1 = class(Tform)
Tform1 = class(Tform)