Kategoriler
E-bülten
Haberlere abone olun:
Bu yazıyı beğendiniz mi?
(toplam 1 oy)
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








