Tekil Mesaj gösterimi
Alt 11 Mart 2015, 11:02   #1
Çevrimiçi
Kaf_Dağı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
İşte Normal DBGrid kullanarak Gridiin içinden DateTimePicker Kullanma




İşte Normal DBGrid kullanarak Gridiin içinden DateTimePicker Kullanma


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Merhaba Arkadaşlar. şimdi yazdıklarım inşallah hoşunuza gider.. şimdi 1 tane DBGrid 1 tane DateTimePicker Forma yerleştirip DateTimePicker-in Visible özeııiyini False yapıp işleme başlaya bilirsiniz. Aşağıda verilmiş kodları Unit penceremize ekliyoruz ve sorun çözülüyor.. _______________________________________________________________________________________________________ <OzelFormat Deger="Kod:Delphi"> procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (gdFocused in State) then begin if (Column.Field.FieldName = 'Tarix') then with DateTimePicker1 do begin Left := Rect.Left + DBGrid1.Left + 1; Top := Rect.Top + DBGrid1.Top + 1; Width := Rect.Right - Rect.Left + 2; Width := Rect.Right - Rect.Left + 2; Height := Rect.Bottom - Rect.Top + 2; Visible := True; end; end end; procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key = Chr(9)) then Exit; if (DBGrid1.SelectedField.FieldName = 'Tarix') then begin DateTimePicker1.SetFocus; SendMessage(DateTimePicker1.Handle, WM_Char, word(Key), 0); end end; procedure TForm1.DateTimePicker1Change(Sender: TObject); begin adoquery1.Fields[1].AsString:=datetostr(DateTimePicker1.Date);//Bu [1] Tarih V.T-da Kaçıncı olduğu yerdir end; </OzelFormat> _____________________________________________________________________________ İnşallah işinize yarar. Herkese ii çalışmalar..


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet