122 uygun sonuç bulundu
- 28 Ara 2023 08:01
- Forum: Programlama
- Başlık: Delphi ile küre yapıp fare ile döndürmek?
- Cevaplar: 3
- Görüntüleme: 697
Re: Delphi ile küre yapıp fare ile döndürmek?
Merhaba Zamanında bende ilgilenmiştim bu konuyla nette ufak tefek örnekler bulmuştum fakat tüm yollar OpenGL'ye çıkmıştı. Sonrasında 2 boyutlu CAD uygulaması geliştirdim. Windows için https://youtu.be/5yhI1uq-3yM devamında pascal kullanarak aynı uygulamayı daha da geliştirerek Androide aktardım. htt...
- 28 Ara 2023 07:51
- Forum: Programlama
- Başlık: Microsoft office 2019 olecontainer problemi
- Cevaplar: 1
- Görüntüleme: 537
Re: Microsoft office 2019 olecontainer problemi
Merhaba
Ms ofisin herhangi bir sürümünü kullanmıyorum. Fakat tüm sorun pencerenin ayrı bi yerde açılması ise, bir çözüm olarak;
Ayrı açılan pencerelerin handle verilerine ulaşıp pencereyi kendi formuma çekerdim.
Ms ofisin herhangi bir sürümünü kullanmıyorum. Fakat tüm sorun pencerenin ayrı bi yerde açılması ise, bir çözüm olarak;
Ayrı açılan pencerelerin handle verilerine ulaşıp pencereyi kendi formuma çekerdim.
- 15 Ara 2023 04:42
- Forum: Programlama
- Başlık: DBGrid satırlarını gruplayarak renklendirme
- Cevaplar: 13
- Görüntüleme: 1021
Re: DBGrid satırlarını gruplayarak renklendirme
Lazarus'ta TDBGrid'de satır renklendirmeyi şu şekilde yapıyorum; procedure TForm_Main.DBGrid_ZeminPrepareCanvas(sender: TObject; DataCol: Integer; Column: TColumn; AState: TGridDrawState); begin if (Sender as TDBGrid).Datasource.DataSet.FieldByName('id').AsString='1' then begin (Sender as TDBGrid).C...
- 02 Ara 2022 10:50
- Forum: Programlama
- Başlık: Kopyalama Yaparken programın donması
- Cevaplar: 2
- Görüntüleme: 605
Re: Kopyalama Yaparken programın donması
Merhaba,
Uzun süreli işlemlerde Thread kullanmalısınız. Veya daha basit usulde ;
Kullanabilirsiniz. Fakat bu kodun kullanılması ustalarca tavsiye edilmez.
Uzun süreli işlemlerde Thread kullanmalısınız. Veya daha basit usulde ;
Kod: Tümünü seç
Application.ProcessMessages;
- 01 Ara 2022 06:42
- Forum: Programlama
- Başlık: Satış Fişi Alt iskonto isk kar kdv Hesaplama
- Cevaplar: 9
- Görüntüleme: 1094
Re: Satış Fişi Alt iskonto isk kar kdv Hesaplama
Kontrol ettim, bende sorunsuz çalışıyor.
- 01 Ara 2022 04:00
- Forum: Programlama
- Başlık: Satış Fişi Alt iskonto isk kar kdv Hesaplama
- Cevaplar: 9
- Görüntüleme: 1094
Re: Satış Fişi Alt iskonto isk kar kdv Hesaplama
Veritabanınızda boş olma ihtimali olan alanlarınız varsa bu alanları formülde doğrudan kullanmak yerine öncesinde içerik kontrol yapmalısınız.
- 01 Ara 2022 02:31
- Forum: Programlama
- Başlık: Satış Fişi Alt iskonto isk kar kdv Hesaplama
- Cevaplar: 9
- Görüntüleme: 1094
Re: Satış Fişi Alt iskonto isk kar kdv Hesaplama
Kodlar Lazarusta yazılıp denenmiştir. procedure TForm1.Button1Click(Sender: TObject); var fiyat_tutar,adet,iskonto,kar,kdv,satis_fiyati:double; begin fiyat_tutar:=353.20; adet:=1; iskonto:=10; kar:=10; kdv:=18; satis_fiyati:= ((fiyat_tutar*adet)*((100-iskonto)/100)) *((100+kar)/100)*((100+kdv)/100);...
- 14 Eki 2022 09:25
- Forum: Programlama
- Başlık: Help - Excel - VCL form
- Cevaplar: 2
- Görüntüleme: 1044
Re: Help - Excel - VCL form
Lazarus kullanıyorum, delphi kullanmıyorum. O yüzden delphi için biraz değişiklik yapmanız gerekebilir. En basit şekliyle ; Unit1.pas içerisindeki kodları inceleyerek, ilgilendiğiniz Uygulamaya ve içerisindeki handle verisi olan kontrollere erişebilirsiniz. Bence, işin en önemli kısmı EnumChildWindo...
- 11 Eki 2022 07:15
- Forum: Programlama
- Başlık: Help - Excel - VCL form
- Cevaplar: 2
- Görüntüleme: 1044
Re: Help - Excel - VCL form
Konu ile ilgili daha önce yaptığım bir çalışma (Lazarus kullanılarak yapılmıştır.) işimi görmüştü. İncelemenizde yarar var diye düşünüyorum.
O zaman yararlandığım bir kaynak ; http://aziga.x10.mx/delphi/index.php?op ... &Itemid=11
O zaman yararlandığım bir kaynak ; http://aziga.x10.mx/delphi/index.php?op ... &Itemid=11
- 26 Eyl 2022 07:38
- Forum: Programlama
- Başlık: Help - Excel - VCL form
- Cevaplar: 2
- Görüntüleme: 1044
Re: Help - Excel - VCL form
Firstly; - CreateToolHelp32SnapShot and Process32First You should take a snapshot of the system with its commands. The ThreadId information of the application you want will be included in the image you receive. - GetWindowThreadProcessID It will give the window handle of the ThreadId information. An...
- 23 Eyl 2022 02:43
- Forum: Programlama
- Başlık: Stringgrid seçili sütunları aktarma
- Cevaplar: 3
- Görüntüleme: 569
Re: Stringgrid seçili sütunları aktarma
Merhaba, Kodlar Lazarus'ta yazılıp denenmiştir. Seçim Bölgesinin Satır ve Sutun bilgileri ; procedure TForm1.StringGrid1Click(Sender: TObject); begin caption:= StringGrid1.Selection.TopLeft.y.ToString+',' + StringGrid1.Selection.TopLeft.x.ToString + ' ' + StringGrid1.Selection.BottomRight.y.ToString...
- 02 Eyl 2022 02:11
- Forum: Programlama
- Başlık: SQLite Tabloya Alan Ekleme
- Cevaplar: 6
- Görüntüleme: 746
Re: SQLite Tabloya Alan Ekleme
Postgresql'de şöyle bir uygulama var buradaki esas ifade EXISTS ; SELECT EXISTS ( SELECT FROM pg_tables WHERE schemaname = 'public' AND tablename = 'Tablo_Adı' ); Uygulama tarafında ise şu şekilde kullanımı mevcut ; ZQuery1.Active:=false; ZQuery1.SQL.Text:=memo1.Text; // Yukarıdaki Sql Tümcesi ZQuer...
- 08 Ağu 2022 08:08
- Forum: Programlama
- Başlık: Hangi bileşen tıklandı
- Cevaplar: 2
- Görüntüleme: 540
Re: Hangi bileşen tıklandı
Merhaba, Tüm panellerin metodlarını işlemek, tek bir panelin metodlarını işlemek ile aynıdır. Burada kullanmanız gereken TPanel(sender)... İlk olarak işlemek istediğiniz bir panelin metodunu ele alıp gereken kodları yazdıktan sonra diğer panellerin metodunu yazdığınız bu metoda bağlamalısınız. Olayı...
- 14 Haz 2022 09:12
- Forum: Programlama
- Başlık: Group By Kullanımı
- Cevaplar: 5
- Görüntüleme: 869
Re: Group By Kullanımı
Muhtemelen, Float veriyi string olarak sakladığınız için sorun yaşıyorsunuz. Öncelikle noktayı yok etmelisiniz ardından virgülden noktaya dönüşüm yapmalısınız. Lazarusta Denenmiş Kod ; Application.UpdateFormatSettings := false; DecimalSeparator := '.'; showmessage(floattostr(StrToFloat(replacestr(Re...
- 12 Haz 2022 02:19
- Forum: Programlama
- Başlık: Group By Kullanımı
- Cevaplar: 5
- Görüntüleme: 869
Re: Group By Kullanımı
SELECT deneme."Musteri_Kodu", deneme."Belge_No", deneme."Fatura_No", deneme."Unvan", SUM(deneme."Brut_Toplam") FROM deneme GROUP BY deneme."Musteri_Kodu", deneme."Belge_No", deneme."Fatura_No", deneme."Unvan" ...