Hi,
Ich würde es so ähnlich machen.
Delphi-Quellcode:
function ActiveSynEdit: TSynEdit;
var
Index: Integer;
begin
Index := PageControl.ActivePageIndex;
if Index > -1 then
Result := PageControl.Pages[Index].FindComponent(Format('SynEdit%d', [Index])) as TSynEdit else
Result := nil;
end;
Zwar nicht optimal, aber es sollte laufen.
Musst noch schauen, wie du deine SynEdits erstellt und bennant hast.
mfG
mirage228