Delphi-PRAXiS - Delphi Erstellen eines eigenen Tabs mit Komponenten einbindungen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Erstellen eines eigenen Tabs mit Komponenten einbindungen (https://www.delphipraxis.net/43969-erstellen-eines-eigenen-tabs-mit-komponenten-einbindungen.html)

Nils_13

11. Apr 2005 14:08

Erstellen eines eigenen Tabs mit Komponenten einbindungen

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

11. Apr 2005 14:10

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Hi,

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

[edit]

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

11. Apr 2005 14:14

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Mit fSynEdit :roll:

Die Muhkuh

11. Apr 2005 14:16

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

Zitat:

Zitat von Nils_13

Mit fSynEdit :roll:

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

11. Apr 2005 14:21

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

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

Die Muhkuh

11. Apr 2005 14:30

Re: Erstellen eines eigenen Tabs mit Komponenten einbindunge

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.

DP-Maintenance

5. Mai 2005 00:22

DP-Maintenance

Dieses Thema wurde von "flomei" von "Neuen Beitrag zur Code-Library hinzufügen" nach "VCL / WinForms / Controls" verschoben.
Diskutiert bitte nicht in der Code-Library bzw. in deren Teilen. Danke.

Alle Zeitangaben in WEZ +1. Es ist jetzt 02:01 Uhr.