Kategoriler
Arşiv
| Pt | Sa | Ça | Pe | Cu | Ct | Pa | |
|---|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | 5 | |||
| 6 | 7 | 8 | 9 | 10 | 11 | 12 | |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 | |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 | |
| 27 | 28 | 29 | 30 | ||||
E-bülten
Haberlere abone olun:
Bu yazıyı beğendiniz mi?
(toplam 1 oy)
Yazı büyüklüğünü ayarla:
for I := 0 to ComponentCount -1 do
begin
if (Components[i] is TEdit) then TEdit(Components[i]).Text:= '';
if (Components[i] is TMemo) then TMemo(Components[i]).Clear;
if (Components[i] is TMaskEdit) then
begin
if (TMemo(Components[i]).Name <> 'MskEdit_CekimTarih') and
(TMemo(Components[i]).Name <> 'MskEdit_SistemTarih') then
TMaskEdit(Components[i]).Text:= '';
end;
end;
Bu kodlamaya ek yapmak sizin isteğinize bağlı olarak arttırılabilir.
Örneğin:
ComboBox ekleyebilirsiniz
if (Components[i] is TTable) and (TTable(Components[i]).Modified
if (Components[i] is TButton) then TButton(Components[i]).Enabled
Yorumlar (0 Yazılmış)
