Memo TextHint

[DeddyH]

Die TStrings- und die TFont-Instanz werden ja intern erzeugt und in den jeweiligen Feldern hinterlegt. Wird nun ein anderer Wert zugewiesen, so werden die Felder mit den zugewiesenen Instanzen belegt, die ursprünglichen sind nicht mehr erreichbar und können somit auch nicht mehr freigegeben werden.

[a.def]

Das klingt selbst mir jetzt einleuchtend. Danke habe es verstanden.

Die Felder sind nun ReadOnly un ich mache es so für mehrere Memos

Delphi-Quellcode:

 Memo1.TextHint.Add('1');
 Memo1.TextHint.Add('2');
 Memo1.TextHint.Add('3');

 Memo2.TextHint.AddStrings(Memo1.TextHint);

Klappt wunderbar.

A propos. type TMemo = classMemo.TMemo; kann ich auch aus der Unit rauslassen wo die Memos stehen. Funktioniert trotzdem.

[Zacherl]

Falls du schnell mal z.b. eine andere Font zuweisen willst, dann mach dir einfach zwei richtige Setter Methoden:

Delphi-Quellcode:

type
  TMemo = class(..)
  private
    FTextHintFont: TFont;
  private
    procedure SetTextHintFont(const Value: TFont); inline;
  ..
  published
    property TextHintFont: TFont read FTextHintFont write SetTextHintFont;
  ..
  end;

..

procedure TMemo.SetTextHintFont(const Value: TFont);
begin
  FTextHintFont.Assign(Value);
end;

[DeddyH]

Habbich doch gesacht

[a.def]

Die Setter sind jetzt drin

Delphi-Quellcode:

type
 TMemo = class(StdCtrls.TMemo)

 private
  FTextHintFont: TFont;
  FTextHint: TStrings;
  procedure SetTextHint(const Value: TStrings); inline;
  procedure SetTextHintFont(const Value: TFont); inline;
  ...
 published
  property TextHint: TStrings read FTextHint write SetTextHint;
  property TextHintFont: TFont read FTextHintFont write SetTextHintFont;
 end;

procedure TMemo.SetTextHint(const Value: TStrings);
begin
 FTextHint.Assign(Value);
end;

procedure TMemo.SetTextHintFont(const Value: TFont);
begin
 FTextHintFont.Assign(Value);
end;

Jetzt funktioniert auch ein simples Memo2.TextHint := Memo1.TextHint ohne MemoryLeak.