Hint als Schatten in TEdit?

[Luckie]

So sollte es gehen:

Delphi-Quellcode:

function Edit_SetCueBannerText(hEdit: HWND; lpcwText: PWideChar): bool;
const
  ECM_FIRST         = $1500; // Edit control messages
  EM_SETCUEBANNER   = ECM_FIRST + 1;
begin
  Result := Bool(SendMessage(hEdit,EM_SETCUEBANNER,0,LPARAM(lpcwText)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Edit_SetCueBannerText(Edit1.Handle, 'Mein Text') then
    ShowMessage(SysErrorMessage(GetLastError));
end;

Wichtig ist noch:

Zitat:

To use this API, you must provide a manifest specifying Comclt32.dll version 6.0.

Ich habe ein entsprechendes Manifest als Ressourcenskript angehangen.