IDE Tooltips (Hints) immer wieder verschwunden

[BigAl]

Zitat von Uwe Raabe:

Zitat von BigAl:

Ist absolut reproduzierbar. Externe Applikation. Ein Memo und einen Timer drauf. Dann im Timer zyklische Memo.Lines.BeginUpdate und Memo.Lines.EndUpdate aufrufen. Das Ding starten und Good By Tooltips...

Dann mache ich hier wohl noch was falsch...

Ja. Es ist die Kombination mit der ThreadList. Habe eben ein kleines Beispiel gemacht:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  System.Generics.Collections,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    ThreadList: TThreadList<Integer>;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ThreadList := TThreadList<Integer>.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ThreadList.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ThreadList.LockList;
  try
    Memo1.Lines.BeginUpdate;
    Memo1.Lines.EndUpdate;
  finally
    ThreadList.UnlockList;
  end;
end;

end.

Damit sind die Tooltips (zumindest bei mir) weg...