Kod
//Onshow olayına for i := 0 to self.ComponentCount - 1 do begin if Components[i]Is TTable then begin TTable(Components[i]).open; TTable(Components[i]).Active := true; end; if Components[i]Is TQuery then begin TQuery(Components[i]).open; TQuery(Components[i]).Active := true; end; end;