🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
İş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.