Gem Lines

idé:
Hvilken TabSheet der er aktiv kan du finde ud af igennem grundkomponentet til alle dine tabsheets (Pagecontrol), hvis du når du opretter en ny tabsheet giver tag et nummer, og kalder din SunEdit navn(tagtal) så kan du søge efter din synedit ved hjælp af SynEdit('navn' + tag) eller noget i den retning

Eksempel:
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TTabSheet;
begin
  antal := antal+1;
  TS := TTabSheet.Create(PageControl1);
  with TS do begin
    Caption := 'Note';
    PageControl := PageControl1;
    tag := antal
  end;
  TMEmo.Create(self).Name := 'min_memo_nr' + IntToStr(antal);
  with TMemo(FindComponent('min_memo_nr' + IntToStr(antal))) do begin
    Parent := TS;
    lines.Text := '';
    Font.name := 'Times New Roman';
    Font.Size := 12;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  with TMemo(findcomponent('min_memo_nr' + IntToStr(PageControl1.ActivePage.Tag))) do
  begin
    if savedialog1.execute then
    begin
    try
      lines.SaveToFile(savedialog1.filename);
    except
      Showmessage('Kunne ikke gemme filen');
    end;
    end;
  end;
end;

Button1 er Nyt dokument
Button2 er Gem Som...

eksemplet er godt nok med TMemo men det burde ikk være så svært at lave om, DETTE eksempel bruger 2 knapper, en TPageControl kaldes PageControl1 og en Tsavedialog kaldet SaveDialog1 og så skal antal: Integer oprettes i var

når jeg bruger din kode til at oprette et nyt dokument, opretter den kun den første tabsheet.. når jeg opretter det andet, tredje... så siger den at min_memo_nr1 allready exists.

så lav en OnCreate form koden:
antal := 0;

antal variebel skal stå i den øverste var altså sammen med Form1: TForm1

var
  Form1: TForm1;
  Antal: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TTabSheet;
begin
  antal := antal+1;
  TS := TTabSheet.Create(PageControl1);
  with TS do begin
    Caption := 'Note';
    PageControl := PageControl1;
    tag := antal
  end;
  TMEmo.Create(self).Name := 'min_memo_nr' + IntToStr(antal);
  with TMemo(FindComponent('min_memo_nr' + IntToStr(antal))) do begin
    Parent := TS;
    lines.Text := '';
    Font.name := 'Times New Roman';
    Font.Size := 12;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  with TMemo(findcomponent('min_memo_nr' + IntToStr(PageControl1.ActivePage.Tag))) do
  begin
    if savedialog1.execute then
    begin
    try
      lines.SaveToFile(savedialog1.filename);
    except
      Showmessage('Kunne ikke gemme filen');
    end;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  antal := 0;
end;

nu virker det :)
Men der er lige 2 ting:
Når jeg fx. skriver "dskfk" i TabSheet 1 memo lines og opretter et nyt dokument, så er den nye memos lines ikke tomt men det samme som TabSheet 1's memo lines. Den nye memo's lines er tomt når man bladre en tabsheet frem og tilbage.

er der ikke en måde at få memoen Refreshed når man opretter?

Og den anden ting:
Hvordan loader jeg så? altså filer i den aktive (tabsheet)memo.

1: Det jeg tror som forvirer dig er at den ikke automatisk aktiverer den nye Tabsheet når du opretter den, men bliver på den samme som før du trykkede for at ændre det kan du skrive  PageControl1.ActivePage := TS; nedderst i button1click

2:
procedure TForm1.Button3Click(Sender: TObject);
begin
  with TMemo(findcomponent('min_memo_nr' + IntToStr(PageControl1.ActivePage.Tag))) do
  begin
    if opendialog1.execute then
    begin
    try
      lines.LoadFromFile(savedialog1.filename);
    except
      Showmessage('Kunne ikke gemme filen');
    end;
    end;
  end;
end;

du kan som grundting altid have:
procedure TForm1.Button2Click(Sender: TObject);
begin
  with TMemo(findcomponent('min_memo_nr' + IntToStr(PageControl1.ActivePage.Tag))) do
  begin


  end;
end;
derinde kan du så skrive din kode, eks. hvis du vil hente memoX.lines.text skriver du bare
eks.:
showmessage(lines.text);

Showmessage('Kunne ikke gemme filen');
skal ændre til
Showmessage('Kunne ikke åbne filen');

Jeg prøver de 2 ting imorgen, skal smutte for iaften! :)
Men husk lige at svare mig imorgen igen :)

Godnat!

Det med at Button1, virker fint, men når jeg skal loade, creater den ikke en ny TabSheet, med indholdet af filen i en ny Memo, men derimod sætter den den valgte fil fra opendialog1 ind i den aktive dokument's memo.
Hvordan gør jeg sådan at den creater en ny tabsheet og en memo i den, når jeg loader en fil??

prøver lige at lave et minieksempel

her er lidt at gå ud fra, indsæt 4 knapper, 1 PageControl, 1 opendialog og savedialog:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Antal: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TTabSheet;
begin
  antal := antal+1;
  TS := TTabSheet.Create(PageControl1);
  with TS do begin
    Caption := '(Nyt dokument)';
    PageControl := PageControl1;
    tag := antal
  end;
  TMemo.Create(self).Name := 'min_memo_nr' + IntToStr(antal);
  with TMemo(FindComponent('min_memo_nr' + IntToStr(antal))) do begin
    Parent := TS;
    Align := alClient;
    lines.Text := '';
    Font.name := 'Times New Roman';
    Font.Size := 12;
  end;
  PageControl1.ActivePage := TS;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  with TMemo(findcomponent('min_memo_nr' + IntToStr(PageControl1.ActivePage.Tag))) do
  begin
    if SaveDialog1.execute then
    begin
    try
      lines.SaveToFile(SaveDialog1.filename);
    except
      Showmessage('Kunne ikke gemme filen');
      exit;
    end;
    end;
  end;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  with TMemo(findcomponent('min_memo_nr' + IntToStr(PageControl1.ActivePage.Tag))) do
  begin
    if OpenDialog1.execute then
    begin
    try
      lines.LoadFromFile(OpenDialog1.filename);
    except
      Showmessage('Kunne ikke åbne filen');
      exit;
    end;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click(Sender);
  Button3Click(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  opendialog1.Filter := 'Tekstfiler (*.txt)|*.txt|Alle Filer (*.*)|*.*';
  Savedialog1.Filter := 'Tekstfiler (*.txt)|*.txt|Alle Filer (*.*)|*.*';
  Button1.Caption := 'Ny';
  Button2.Caption := 'Åbn';
  Button3.Caption := 'Åbn i samme memo';
  Button4.Caption := 'Gem Som...';
  Button1Click(Sender);
end;

end.

Virker fedt :D
Siden du lige har lavet det, kunne du måske hjælpe mig med at lave:
Gem og Gem Alle

Den gem funktion du lavede er Gem Som.
Har leget med at lave det, men det lykkedes ik.

har lige afsat 50 point ekstra :) 100 point ialt får du hvis du lige hjælper med de 2 ting ;)

kan godt prøve at kigge lidt på det! vender lige tilbage lidt senere!, i stedet for at jeg hele tiden kunne du så ikke adde mig i din MSN hvis du har det: dennis.ssh@computer.dk

i stedet for at jeg hele tiden = i stedet for at jeg hele tiden at sende lange koder her på eksperten

Du får points.. :)