19 uygun sonuç bulundu
- 14 Eyl 2021 12:11
- Forum: Programlama
- Başlık: Çalışma anında FORM üzerinde oluşturduğum panellerde drag drop yapılabilir mi?
- Cevaplar: 4
- Görüntüleme: 1502
Re: Çalışma anında FORM üzerinde oluşturduğum panellerde drag drop yapılabilir mi?
{ TForm1 } TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private procedure PanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure PanelMouseUp...
- 20 Oca 2020 06:33
- Forum: Programlama
- Başlık: Aidat Programı gecikme faizi
- Cevaplar: 1
- Görüntüleme: 1072
Aidat Programı gecikme faizi
Arkadaşlar bir aidat ve yakıt paralarını tutan borçluları listeleyen bir program yazıyorum. Borçları ID ... UYEID.. TARIH....... ODEME... BORC...KALAN.... ODEMESEKLI 1 1 20.01.2020 - 150 150 AİDAT ---> üyeye aidat borcu yazıyorum 2 1 20.01.2020 100 - -100 AİDAT ----> üyenin yaptığı ödemeler şeklinde...
- 08 May 2018 06:52
- Forum: Programlama
- Başlık: Button ile Başka bir nesnenin Event kodunu çalıştırmak
- Cevaplar: 4
- Görüntüleme: 549
Re: Button ile Başka bir nesnenin Event kodunu çalıştırmak
herhangi bir item seçilmediği için oluyor. kodun başına bir koşul yazarsan çözüm sağlanmış olur
if CheckListBox1.ItemIndex>-1 then
begin
edit4.text:=CheckListBox1.Items[CheckListBox1.ItemIndex];
Edit7.Text := Copy(CheckListBox1.Items[CheckListBox1.ItemIndex], 1, 3);
end;
if CheckListBox1.ItemIndex>-1 then
begin
edit4.text:=CheckListBox1.Items[CheckListBox1.ItemIndex];
Edit7.Text := Copy(CheckListBox1.Items[CheckListBox1.ItemIndex], 1, 3);
end;
- 18 Oca 2018 11:14
- Forum: Programlama
- Başlık: stringgrid cell color
- Cevaplar: 2
- Görüntüleme: 720
Re: stringgrid cell color
Sanırım tek prosedurde 2 tane StringGrid i renklendirmek istiyorsun StringGrid1 yazan yerlere Sender yazıp StringGrid2 ye de drawcell ine bu prosedürü atmalısın
- 16 Oca 2018 03:27
- Forum: Programlama
- Başlık: Mantık yardımı
- Cevaplar: 4
- Görüntüleme: 586
Re: Mantık yardımı
Tşkler
- 13 Oca 2018 05:56
- Forum: Programlama
- Başlık: Mantık yardımı
- Cevaplar: 4
- Görüntüleme: 586
Re: Mantık yardımı
1) Numaralar bir görev ifade ediyor her numaranın bir görevi var 1,2,3 diye ben salladım bu 2-4-6 gibi de gidebilir. Görev numarası olduğu için bugun 1 nolu gorevi yapan yarın 2 nolu gorevi yapar o yuzden tekrarlaması gerekiyor? 2) "sabah", "n sabah" , akşam "n akşam" b...
- 13 Oca 2018 12:40
- Forum: Programlama
- Başlık: Mantık yardımı
- Cevaplar: 4
- Görüntüleme: 586
Mantık yardımı
Şöyle bir sorunum var. Bir çizelge programı yapmaya çalışıyorum. Bir iş yeri var 100 küsür çalışan var bunlar 3 varsiya çalışıyor. haftaiçi sabah 1 2 3 4 5 6 7 8 9 10 11 n sabah 21 22 23 24 25 26 27 28 29 akşam 51 52 53 54 55 56 57 58 59 60 61 n akşam 70 71 72 73 74 75 76 77 78 79 Cumartesi sabah 10...
- 04 Eki 2017 02:33
- Forum: Programlama
- Başlık: Panel ve çözünürlük
- Cevaplar: 11
- Görüntüleme: 1133
Re: Panel ve çözünürlük
bence image koymalısın 2 tane biri normal biride değişecek renk 2 tane resim oluşturup imagelere atamalaısın image1 adını normalresim, image 2 adını degisenresim olarak değiştir. ve çizdiğin resimleri imagelere ata. procedure Tanaform.BASLIKYAZ(UZERINDE, basili: boolean; resim: TImage; baslik: strin...
- 04 Eki 2017 01:39
- Forum: Programlama
- Başlık: 4 işlem ama bildiğiniz gibi değil
- Cevaplar: 6
- Görüntüleme: 1052
Re: 4 işlem ama bildiğiniz gibi değil
Eğer yanlış anlamadiysam. Tüm labelleri alt alta koyun autosize false yapın belli bir uzunluk verin Label aligment left yada right kullanarak hangisi sağ hangisi sol tarafa yazılacağını hizalayin.
- 26 Mar 2017 03:43
- Forum: Programlama
- Başlık: ListView selected
- Cevaplar: 1
- Görüntüleme: 426
Re: ListView selected
Kod başına
ListView1.BeginUpdate
Sonuna da
ListView1.EndUpdate
Denermisin
ListView1.BeginUpdate
Sonuna da
ListView1.EndUpdate
Denermisin
- 26 Mar 2017 02:51
- Forum: Programlama
- Başlık: Portable media player
- Cevaplar: 5
- Görüntüleme: 688
Re: Portable media player
Viplay diye bir proje vardı winamp benzeri program. Dc-Dsp filter bileşenleri ni kullanıyordu tam olarak hatırlamıyorum ama nette bir araştır ordan tüm bu dediklerini yapabiliyorsun. Yanlız Direct 9 üzerinden di sanırım. http://www.dsp-worx.de bileşenler burada
- 26 Mar 2017 02:38
- Forum: Programlama
- Başlık: hesap makinesi 4 islem yardım lütfen
- Cevaplar: 7
- Görüntüleme: 997
Re: hesap makinesi 4 islem yardım lütfen
sonuc: integer; yerine sonuc: extended; girersin inttostr yerine floattostr..... strtoint yerine strtofloat..... Tüm butonlara tag atarsın 0-9 arası hangi rakam yazacaksa ve hepsinin onclick olayına buton1 i atarsın gereksiz kod yazmakla ugrasmazsın procedure TForm1.Button1Click(Sender: TObject); be...
- 20 Mar 2017 05:21
- Forum: Programlama
- Başlık: Video oynarken üzerinden kayan yazı akıtmak
- Cevaplar: 1
- Görüntüleme: 470
Re: Video oynarken üzerinden kayan yazı akıtmak
Label koyduysan üzerinde sağ tıklayıp bringtofront yaparsan her zaman üstte olur. Form ve label in doublebuffer ini de true yaparsan titreme yapmaz
- 05 Şub 2017 12:47
- Forum: Programlama
- Başlık: mouse kontrol
- Cevaplar: 1
- Görüntüleme: 306
Re: mouse kontrol
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); var i: SmallInt; x:Integer ; begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then begin if ActiveControl is TEdit then begin try x:=StrToIntDef(TEdit(Activ...
- 05 Şub 2017 12:28
- Forum: Programlama
- Başlık: Radiogroup string sorgulatmak
- Cevaplar: 1
- Görüntüleme: 260
Re: Radiogroup string sorgulatmak
Kod: Tümünü seç
if RadioGroup1.Items.IndexOf('kart bilgisi')>-1 then
RadioGroup1.ItemIndex:=RadioGroup1.Items.IndexOf('kart bilgisi')