PageControl - Problem

[Brainshock]

Naja, gibt ja tausende von Möglichkeiten das zu lösen. Eine Lösung wäre, das TMemo abzuleiten und den Dateinamen beim Laden und Speichern zwischenzuspeichern. Beispiel:

Delphi-Quellcode:

TMyMemo = class (TMemo)
private
  FFileName: String;
public
  procedure LoadFromFile(const AFileName: String);
  procedure SaveToFile(const AFileName: String);
  property FileName: String read FFileName write FFileName
end;

Implementierung der Methoden:

Delphi-Quellcode:

procedure TMyMemo.LoadFromFile(const AFileName: String);
begin
  Self.Lines.LoadFromFile(AFileName);
  FFileName:= AFileName;
end;

procedure TMyMemo.SaveToFile(const AFileName: String);
begin
  Self.Lines.SaveToFile(AFileName);
  FFileName:= AFileName;
end;

Speichern:

Delphi-Quellcode:

if FActiveMemo.FileName <> '') then
begin
  FActiveMemo.SaveToFile(FActiveMemo.FileName);
  Saved := True;
  ShortFn := ExtractFilename(Fn);
  SetCompleteCaption;
  TBXStatusBar1.Panels[3].Caption := '';
end else
begin
  TBXItem3Click(self);
  TBXItem2.Enabled := False;
  TBXItem42.Enabled := False;
  TBXStatusBar1.Panels[3].Caption := '';
end;

Gruß,