Also,
vor längerer Zeit habe ich mal angefangen einen Editor zu schreiben, den ich seither stetig weiterentwickle.
Nun habe ich ein PageControl eingebaut, welches zum Tabbes-Browsing dient. (Heißt es so?)
Klick auf Button = Neues Tab mit neuem Memo wird erstellt. (MemoX) , X fortlaufend.
Mit folgendem Code lasse ich mir (NUR für mich zum "sehen") anzeigen welches Tab aktiv ist.
Delphi-Quellcode:
procedure TForm1.PageControl2Change(Sender: TObject);
begin
with PageControl2 do
begin
showmessage(ActiveMemo.Name);
GetCurrentSyn.BringToFront;
end;
end;
Die dazugehörige Funktion:
Delphi-Quellcode:
function TForm1.ActiveMemo: TMemo;
begin
Result := nil;
with PageControl2 do
if ActivePage.ControlCount > 0 then
begin
if ActivePage.Controls[0] is TMemo then
begin
Result := (TMemo(ActivePage.Controls[0]));
end else
begin
if Result = nil then
Result := MainMemo;
end;
end;
end;
So.. mein Problem:
Wie kann ich jetzt das aktive Memo speichern?
Mit EINEM Memo habe ich es so gemacht:
Delphi-Quellcode:
try
if Saved then exit; // Saved wird true, wenn datei schonmal "abgespeichert" wurde.
// das hier unten ist "Schnellspeicherung"
if FileExists(Fn) then
begin
Memo1.Lines.SaveToFile(Fn);
Saved := True;
ShortFn := ExtractFilename(Fn);
TBXStatusBar1.Panels[3].Caption := '';
end else
begin
TBXItem3Click(self);
TBXItem2.Enabled := False;
TBXItem42.Enabled := False;
TBXStatusBar1.Panels[3].Caption := '';
end;
except
//
end;
Ich habe schon an ein Array gedacht, weis aber nicht wie ich was damit umsetzen soll
