Erstellen eines eigenen Tabs mit Komponenten einbindungen

**Nils_13**

Hi

Delphi-Quellcode:

			type

  TExtendedTabSheet = class(ComCtrls.TTabsheet)

  constructor Create(AOwner: TComponent);

  private

    fSynEdit : TSynEdit;

 public

 published

   property SynEdit : TSynEdit read fSynEdit write fSynEdit;

 end;

{ ... }

var

  SelectedSheet : TTabSheet;

{ ... }

constructor TExtendedTabSheet.Create(AOwner: TComponent);

begin

  inherited;

  fSynEdit := TSynEdit.Create(self);

  with fSynEdit do

  begin

    Parent := TWinControl(self);

    Align := alClient;

  end;

  with fSynEdit do

    fSynEdit.Align := alClient;

    fSynEdit.Show;

    fSynEdit.Gutter.ShowLineNumbers:= true;

    fSynEdit.Gutter.Font.Name:= 'Times New Roman';

    fSynEdit.Highlighter:= Form1.SynHTMLSyn1;

    fSynEdit.lines.add ('<!doctype html public "-//W3C//DTD HTML 4.0 //EN">');

    { ... }

end;

procedure TForm1.AddNewTab(Caption : string);

var

  Sheet : TExtendedTabSheet;

begin

  Sheet := TExtendedTabSheet.Create(Pages);

  Sheet.PageControl := Pages;

  Sheet.Caption     := Caption;

  Sheet.Show;

end;

**Die Muhkuh**

Hi,

und was machst du bei mehreren Tabs? Wie sprichts du dann ein SynEdit an?

[edit]

zusammenfalten · markieren

Delphi-Quellcode:

			constructor TExtendedTabSheet.Create(AOwner: TComponent);

begin

  inherited;

  fSynEdit := TSynEdit.Create(self);

  with fSynEdit do

  begin

    Parent := TWinControl(self);

    Align := alClient;

    Align := alClient;

    Show;

    Gutter.ShowLineNumbers:= true;

    Gutter.Font.Name:= 'Times New Roman';

    Highlighter:= Form1.SynHTMLSyn1;

    lines.add ('<!doctype html public "-//W3C//DTD HTML 4.0 //EN">');

    { ... }

  end;

end;

**Nils_13**

Mit fSynEdit

**Die Muhkuh**

Zitat von Nils_13:

Mit fSynEdit

Du verstehst mich nicht,

wenn ich 10 Tabs habe und das fünfte ist aktiv. Wie würde ich das z.B. abspeichern?

**Nils_13**

Gut, das Prob hab ich auch gerade, nur was kann ich dagegen machen ?

**Die Muhkuh**

Hi,

hihi, ich wusste, das du das nicht weißt, deswegen hab ich ja auch gefragt.

Ich geb dir mal nen Tipp.

Du brauchst am besten mehrere Klassen dafür. Eine Klasse kümmert sich um die SynEdits, eine andere Klasse kümmert sich um die Dokumente und eine dritte Klasse ist das Dokument selbst.

Ich weiß, das ist nen sehr einfacher Tipp, aber das ist der Grundsatz. Wenn du willst, kann ich dir mal ein Beispielprogramm schreiben.

Erstellen eines eigenen Tabs mit Komponenten einbindungen

Erstellen eines eigenen Tabs mit Komponenten einbindungen

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Forumregeln

Nils_13 Registriert seit: 15. Nov 2004 2.647 Beiträge	#3 Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge 11. Apr 2005, 15:14 Mit fSynEdit
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#4 Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge 11. Apr 2005, 15:16 Zitat von Nils_13: Mit fSynEdit Du verstehst mich nicht, wenn ich 10 Tabs habe und das fünfte ist aktiv. Wie würde ich das z.B. abspeichern? Manuel Blog reactivated
	Zitat

Nils_13 Registriert seit: 15. Nov 2004 2.647 Beiträge	#5 Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge 11. Apr 2005, 15:21 Gut, das Prob hab ich auch gerade, nur was kann ich dagegen machen ?
	Zitat