Delphi Forum

Elektrik Elektronik Muhendisiyim. PLC (Siemens S7 200 e.t.c.) ve PIC(16F84 e.t.c) programlama , Scada , Delphi ile ilgili projeler uzerinde calisiyorum.

Uzun denemelerim sonucu kodu buldum.
ListBox1.ItemIndex:=listbox1.Items.IndexOf(listbox1.Items.Strings[k]);

K : random sayı

Ne yazikki olmadi Topindex ile. Yine calan parca ile alakasi olmayan bir yerde bekliyor listbox. Calan parcanin oldugu yere gitmiyor.

Bu sorguyu sanirim edit kutularina girdigin tarih olarak yapacaksin. Query kullanarak

query1.sql.clear;
query1.sql.add('select * from Tablo tarih BETWEEN :tarih1 and
:tarih2');
query1.parambyname('tarih1').asdate := tarih;
query1.parambyname('tarih2').asdate := tarih;
query1.open;

veya

var ...

Uzun zamandır Mp3 playerimle ugrasiyorum. Playlist olarak Listbox kullaniyorum. Random veya bir sonraki parcayi calma olaylari playere ekledim. Ancak bu bir sonraki parcayi calmayi
listbox.itemindex:=listbox1.itemindex+1; gibi ve randomize olayinida random sayi uretip caldirtiyorum. Ancak sorunum ...

Hocam trackbari denedim ayni sekilde oldu. Ancak ilerletme sozkonusu oldugunda cuvalladim. Trackbar in change olayina kod yazdım. Parca ilerlerken positionu change oldugundan herseferinde kodu uygulamaya basladi. Ben sadece elle degistirdigimde
mediaplayer1.position:=trackbar1.position; gibi bisey ...

Progressbar sonucta belirli birseyin ilerlemesini gosteriyor. Ben progress barda uzerine tıklayinca progressbar konumunun o noytaya (X,Y) olarak gelmesini nasil saglarim. Aslında amacim su :

Winamp benzeri bir programla ugrasiyorum. Su an Progressbar parca ilerledikce ilerliyor. Ben parca ileri ...

forumda Listbox ve opendialog var

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
OpenDialog1.Filter :=
'Mp3 Muzik Dosyasi (*.Mp3)|*.Mp3|All files (*.*)|*.*';


if OpenDialog1.Execute then
label2.Caption:=Opendialog1.filename;
for i := 0 to openDialog1.Files.Count-1 do ...

Hocam ondada sınır yokmus. Ben Opendialog ile dosya ac yapiyordum. CTRL + A ile secip eklemeye calisiyordum. Bir defada belirli dosyayi ekliyor. Daha sonra ona ekleme yapabiliyorum. Sorun Bu Tumunu sectigimde hepsini eklememesi

Tamam sorunu cozdum. Su an arama yaptirabiliyorum. Bir sorunum daha cikti yalniz. Bilirsiniz programcıların sorunlari bitmez. Bu sefer ki sorunum satır sayısı sorunu. Listbox belli satırdan fazlasini almiyor. Satır limiti varmi listboxlarda ? Baska alternatif ne kullanabilirim. Tesekkurler

Sorunum cok buyuk delphi ustalarini gerektiriyor. Ben isin icinden cıkamadim. Bir listbox dusunun. icinde gotonearest gibi bir arattirma yaptirmak istiyorum. Ayni winampin playlistinde aratma yapiyor gibi. Bunu nasil becerebilirim. Ornegin listbox satirlarinda sirayla mp3 ler dusunun.

Ornegin ...

Server socket ile clienti kapatmaya calisiyorum. Bunu basardim. Ancak her seferinde

" Bilgisayariniza 1 kullanici bagli devam etmek istiyormusunuz "
seklindeki Windows diyalog penceresi cıkıyor. Ben bunun cıkmasini istemiyorum. Direk restart icin bir komut varmi . Rundll32 den olsun veya baska bir ...

Uygulamayi traye indiriyorum o sorun olmuyor ancak visible olayinda bir sorunum var. On show olayina yazinca " Cannot change visible in Onshow or Onhide" mesajini veriyor. visible yerine baska bir ozellikmi kullanmam gerekiyor.

Bir component kullaniyorum. Ornegin bir buton koyup onclick olayina
Component1.active:=true
form1.visible:=false;
yaptigimda sorunsuz system trayde icon geliyor. Benim istedigim bunun direk program calisirken gerceklesmesi. Yani program tiklandiginda direk Trayde calisacak. Ancak beceremedim. Yani ...

Hocam simdi kafam karıstı. Normal farkı alırken , mesela saat farkı yerine tarihidemi cıkarayım? . Yani formatdatetime('hh:nn',now ) yerine dd.mm.yyyy demi cıkarıcaz ?

Birde hoursbetween ve minutesbetween komutları kullanımına dair ornek verirmisiniz. Sitedeki acıklamada yokta. Sadece ne oldugu ...