Delphi Forum

merhaba tam olarak şöyle: //---------------------------------------------------- uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin PlaySound('c:\deneme\bjk.wav', 0, SND_FILENAME + SND_ASYNC); //şampiyon bjk şarkısını wav olarak kaydetmeyi unutmuyoruz. :) end; end. //--------------...

merhaba, Her ne kadar Mustafa Hocam tek bir bileşenle diğer media dosyalarını çalabileceğimizi belirtse de ben tam 38 tane (daha da var) MP bileşenini form üzerine yerleştirip aşağıdaki gibi kodlarla yazım : if a='çocuk' then mediaplayer1.play; if a='çicek' then mediaplayer2.play; if a='çorap' then ...

Aslında çözüm çok basit:

RichEdit 'in PlainText 'ini properties ten True yapmak yeterli.

Bunu kodla yazarsak;

RichEdit1.plainText:=True;


Selamlar

Çok teşekkür ederim.

şöyle bir kod dediğinizi yapar mı?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=10;
image1.left:=image1.left+1; // resim bulunduğu yerden sağa doğru gider.
end;

Arkadaşlar, hepinize merhaba, Uzun süredir soru sormadığım için çok soru sorma hakkımı kullanmak istedim. :) 1. Memo ile richedit arasındaki fark nedir? Eğer sorun sadece girilcek metnin boyutu ise memoya en fazla ne kadar metin sığar? Diyelim panoda çok büyük boyutta ms-dos biçimli metin dosyamız v...

Teşekkürler Hocam.

Arkadaşlar merhaba
Acil olarak klavyedeki bastığımız tuşu belirten bir programa ihtiyacım var.
Elinde hazır bir kod parçası olan var mı?
Ticari bir program için değil bu.
şimdiden teşekkürler.

merhaba arkadaşlar

Bazı programlarda tek bir vaw dosyası üzerinde örneğin 1.2.3...n
olarak okunmuş tek bir dosya üzerindeki verilere farklı butonlarla ulaştıklarını gördüm. Bunun nasıl yapıldığı hakkında bilgisi olan var mı?
Keza böyle olunca program klasörünün içi vaw çöplüğü olmuyor.

Selamlar.

Değerli görüşleri için arkadaşlara teşekkür ederim. Aslında bu program içerisinde kullanmayı düşündüğüm bir çok hazır fonksiyon var ama bu fonksiyonların aynı anda çalışmasını nasıl sağlayabilirim? yani diyelim benim print"beşiktaş" olan bir basic kodum var bunu: write('beşiktaş'); şeklind...

yok lazio hocam olmadı. Yukarıdaki koddan bişey çıkmadı : :!: ancak şu kod: Function Degistir(Memo:TMemo;eski,Yeni:String):Integer; Var t:String; i,a,b,c:Integer; begin c:=0; a:=Length(eski); For i:=0 to Memo.Lines.Count-1 do Begin t:=Memo.Lines.Strings ; b:=Pos(eski,t); If b<>0 Then Begin Memo.Line...

Merhaba arkadaşlar Belki Mustafa Hocam anımsar; benim qbasic kodlarını pascal kodlarına dönüştüren(en azından bir miktar) proje çalışmam vardı. :) E biraz Pascal çalıştık, ama sabır da tükendi.. Şöyle bir function yazdım: function degistir(var x,y:string):string; var depo:string; begin depo:=x; x:=y...

Mustafa hocam teşekkürler..

merhaba arkadaşlar.
yaptığım editör programından asci metin dosyalarını ,driver gerekmeden, direk olarak nasıl yazdırabilirim?
Şu an için MS Edit programını program içerisinden çağırıp oradan yazdırıyorum.

Sayın mavsar ve Sayın Ünyeli;
Her ikinize de gerçekten çok teşekkür ederim.