Einzelnen Beitrag anzeigen

Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#7

Re: MDI über TabControl steuern.

  Alt 28. Apr 2004, 19:30
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
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat