Of je laat de procedure al het werk doen in het bepalen wat er gedaan moet worden met de opgegeven control(s); een kort voorbeeldje:
Delphi Code:
procedure HandleControls(const AControls: TArray<TControl>);
var
oControl: TControl;
begin
for oControl in AControls do
if oControl is TDateTimePicker then
TDateTimePicker(oControl).DateTime := Now
else
if oControl is TCheckBox then
TCheckBox(oControl).Checked := not TCheckBox(oControl).Checked
else
oControl.Enabled := oControl.Enabled;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
HandleControls([DateTimePicker1, CheckBox1, Self]); // "Self" is hier natuurlijk de eigen instance van TForm1
end;
Bookmarks