Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için kayıt olmalısınız.
|
Kimler Çevrimiçi |
Şu anda 54 aktif kullanıcı var. » (0 Üye - 52 Ziyaretçi) Bing, Google
|
Son Yazılanlar |
Мобильные казино
Forum: Çevre Birimleri
Son Yorum: Casino
09-09-2025, 11:23
» Yorum 0
» Okunma 40
|
казино
Forum: Çevre Birimleri
Son Yorum: Casino
09-09-2025, 00:31
» Yorum 0
» Okunma 21
|
казино
Forum: Çevre Birimleri
Son Yorum: Casino
08-09-2025, 17:27
» Yorum 0
» Okunma 21
|
Satılık HP 840 G2
Forum: İkinci El Satılık
Son Yorum: admin
26-07-2025, 10:50
» Yorum 1
» Okunma 117
|
AMD Ryzen 10000 Serisi Ze...
Forum: Kullanıcıların gönderdiği haberler
Son Yorum: admin
08-06-2025, 18:44
» Yorum 1
» Okunma 277
|
Samsung S24FE alınır mı?
Forum: Cep Telefonu
Son Yorum: admin
02-06-2025, 11:28
» Yorum 1
» Okunma 287
|
Google Pixel Cihazlarında...
Forum: Android ve Andorid Uygulamaları
Son Yorum: Aviatorder
26-05-2025, 18:52
» Yorum 1
» Okunma 2,832
|
Apple ios 19 ne zaman çık...
Forum: Donanım Haberleri
Son Yorum: admin
26-05-2025, 16:12
» Yorum 0
» Okunma 133
|
Linux Mint 22.2 Zara
Forum: Kullanıcıların gönderdiği haberler
Son Yorum: tekken29
26-05-2025, 11:50
» Yorum 1
» Okunma 180
|
Amiga Sensible World of S...
Forum: Commodore 64 Amiga Oyunları
Son Yorum: admin
19-05-2025, 00:43
» Yorum 0
» Okunma 228
|
|
|
Listboxt'ın içindekini edita taşıma |
Yazar: sariye - 24-11-2006, 14:47 - Forum: Programlama
- Yorum Yok
|
 |
Listbox'in içindekileri edit'a sürükleyerek bırakma.Listbox'ın items özelliğinden birkaç tane sayı girin ve aşağıdaki kodları yazınız.
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (Source is TListBox) and (Sender is TEdit) then
with TListBox(Source) do
if ItemIndex>=0 then TEdit(Sender).Text:=Items[ItemIndex];
end;
procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source=Edit1 then
Accept :=true;
end;
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
ListBox1.BeginDrag(true);
|
|
|
görsel programlar |
Yazar: ekrem5656 - 24-11-2006, 14:46 - Forum: Programlama
- Yorum (1)
|
 |
merhaba arkadaşlar.
ben görsellik üzerine çalışmak istiyorum da bana program önerebilirmisiniz. PhotoShop dışında
teşekkürler
|
|
|
CD Sürücünün kapagini acmak ve kapatmak |
Yazar: sariye - 24-11-2006, 14:46 - Forum: Programlama
- Yorum (3)
|
 |
uses MMSystem;
// Ac
Procedure OpenDoor;
Begin
mciSendString('Set cdaudio door open', nil, 0, 0);
End;
// Kapat
Procedure CloseDoor;
Begin
mciSendString('Set cdaudio door closed', nil, 0, 0);
End;
//Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDoor;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Closedoor;
end;
|
|
|
Hiç bu sitelerden kazanıpta parası eline geçen varmı? |
Yazar: recepkoyuncu - 24-11-2006, 12:40 - Forum: İnternetten Para Kazanma
- Yorum (8)
|
 |
Beyler burdan kazanç sağlamak istiyorum 2 yere üye oldum şimdilik daha 2hafta oldum ama şimdiden hevesim kırılır gibi oldu sanki para gelmiyecekmiş gibi kurt düşüp duruyor içime sizden bu sitelerden herhangi birisinden para,çek falan alan varmı üye olduğum yerler ise;
1. paratıkla.com çok az kazanç veriyor 2haftada 1ytlyi ança kazandım
2.cashfiesta.com vallaha şimdiden 100küsür dolar kazandım gözüküyor abi gece gündüz buna çalıştım işallah yaptıklarım boşa çıkmaz
LÜTFEN BU KONU HAKKINDA BİLGİSİ OLAN VARSA PAYLAÞIRSA SEVİNİRİM ÞİMDİDEN TEÞEKKÜRLER RECEP KOYUNCU.
:roll:
|
|
|
En iyi ekran kartı |
Yazar: YyilmazZ - 24-11-2006, 04:17 - Forum: Ekran Kartı
- Yorum (6)
|
 |
Sizce en iyi ekran kartı hangisi?
Ben aslında bu zamana kadar hep Nvidia'dır gibi düşünmüştüm. Ama sadece isim yapmış gibime geliyor artık. Yani nvidia'dan 300$ a alacağınız bir ekran kartını başka bir firmadan daha ucuza alabilirsiniz gibi me geliyor! Haksızmıyım? Sizce en iyisi hangisi?
|
|
|
|