Memo TextHint

[DeddyH]

Habbich doch gesacht :mrgreen:

[a.def]

Die Setter sind jetzt drin :P

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.