Hallo,
PageControl1.ActivePage -> aktueller TabSheet
obiger Code noch mal
Delphi-Quellcode:
function TForm1.GetCurrentSynEdit: TSynEdit;
var
i: SmallInt;
begin
Result := nil;
for i := 0 to PageControl1.ActivePage.ControlCount -1 do
begin
if (PageControl1.ActivePage.Controls[i] is TSynEdit) then
begin
Result := TSynEdit(PageControl1.ActivePage.Controls[i]);
Break;
end;
end;
// Assert(Result <> nil);
end;
Und jetzt erzähl noch mal,
was genau du nicht verstehst.
Heiko