19 uygun sonuç bulundu

gönderen onur2x
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...
gönderen onur2x
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...
gönderen onur2x
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;
gönderen onur2x
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
gönderen onur2x
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
gönderen onur2x
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...
gönderen onur2x
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...
gönderen onur2x
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...
gönderen onur2x
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.
gönderen onur2x
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
gönderen onur2x
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
gönderen onur2x
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...
gönderen onur2x
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
gönderen onur2x
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...
gönderen onur2x
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')