CueBanner funktioniert nicht

[Neutral General]

Hi,

Ich versuche gerade verzweifelt einem Edit (non-VCL) ein CueBanner zu verpassen.
Habe mir EM_SETCUEBANNER selbst definiert weil ich die CommCtrl.pas nicht einbinden will.

Delphi-Quellcode:

const
  EM_SETCUEBANNER = $1501;

var Str: PWideChar;
begin
  GetMem(Str,Length('Test')*SizeOf(WideChar));
  lstrcpyW(Str,'TEST');
  SendMessage(Handle,EM_SETCUEBANNER,0,lparam(Str));
  FreeMem(Str);
end;

Das funktioniert aber nicht. SendMessage liefert immer false. Edit_SetCueBanner funkioniert auch nicht.

Edit_SetCueBanner(Handle,'TEST'); Liefert auch false...

Mit der VCL funktioniert es aber...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit_SetCueBanner(Edit1.Handle,'TEST'); // geht...
end;

Ich weiß jetzt grad nicht so genau was ich falsch mache -.-

Gruß
Neutral General