Delphi-Quellcode:
procedure TMainform.NeuExecute(Sender: TObject);
var
Datei : TTabSheet;
synedit1: Tsynedit;
begin
Datei:=TTabSheet.Create(Self);
unbekanntcount := unbekanntcount + 1;
Datei.Caption:='Unbekannt ' + inttostr(unbekanntcount);
Datei.Tag := tagcount;
Datei.Visible := true;
Datei.PageControl:=Tabber1;
synedit1 := Tsynedit.Create(Self);
synedit1.Parent := datei;
synedit1.Name := 'synedit' + IntToStr(Datei.Tag);
synedit1.Align := alclient;
synedit1.SearchEngine := mainform.SynEditSearch1;
synedit1.OnChange:=SynEdit1Change;
synedit1.OnSpecialLineColors:=SynEdit1SpecialLineColors;
datei.Show;
end;
Wenn ich jetzt da was mache, meinetwegen :
Delphi-Quellcode:
function TForm1.CurrentSynEdit: TSynEdit;
begin
Result := TSynEdit(FindComponent('synedit' + IntToStr(tabber1.Activepage.Tag)));
end;
...
CurrentSynEdit.lines.loadfromfile('C:\test.bb');
...
...