| Kaf_Dağı | 11 Mart 2015 11:02 |
İşte Normal DBGrid kullanarak Gridiin içinden DateTimePicker Kullanma
İşte Normal DBGrid kullanarak Gridiin içinden DateTimePicker Kullanma Kod:
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..
| 