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
veya
if (Components
is TTable) and (TTable(Components).Modified
if (Components is TButton) then TButton(Components).Enabled ... gibi.
İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.
NeverFear - Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
