Толчек в нужном направлении:
Код:
var
i: Integer;
begin
for i := 0 to application.ComponentCount - 1 do
if application.Components[i] is TForm then
ShowMessage((application.Components[i] as TForm).Caption);
end;
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|