Napisałem fukcje ktora jest mi potrzeba jezeli dane obiekt zostal utworzony (funkcja jest mi potrzebna do artkulu Ekran powitalny - Splash Screen)
Jak przerobic dana funkcje zebym nie musial wpisywac L tylko zeby funkcja pobierala ClassName programowo wszystkich komponetow znajdujacych sie na wszystkich Formach. zeby naprzyklad bylo mozna wylaczyc Result dla danej klasy (jezeli nie koplikowalo by to bardzo kodu)
function TFrmMain.AConstruction(L: Integer; Slep: Integer): String;
var
I : Integer;
S : String;
C : TComponentClass;
begin
case L of {zebym tego nie bylo tylko sam program wyszukiwal wszystkie Classy komponetow}
-1: Exit;
1: C := TBitBtn;
2: C := TLabel;
3: C := TMenuItem;
4: C := TButton;
5: C := TImage;
6: C := TEdit;
7: C := TPageControl;
end;
//jak zrobic zeby wpisane klasy wpisane do funkcji przez uzytkownika Tbitbtn, TEdit, TLabel (funkcja nie wyswietli dla nich Result)
for I:=0 to ComponentCount - 1 do
if Components[I] is C then
begin
S := C.ClassName;
S[1] := ' ';
Components[I].AfterConstruction;
Result := ('Tworzę obiekty: ' + S);
Sleep(Slep);
end;
end;