Hint als Schatten in TEdit?

[Mackhack]

Hallo DPler,

gibts eine Moeglichkeit mit BDS2006 unter WinXP ein Feature zu entwickeln das in einem Editfeld so eine Art Schatten anzeigt als Hint und sobald der User reinklickt oder das Control den Focus bekommt dass dann der Hint verschwindet?

[Hansa]

Am besten : schreibs selber. Das geht. Spontan fällt mir ein Panel ein. X,Y, Farbe, Parent das Edit und fertig. Idee ist nicht schlecht. Die Hints sind Scheiße.

[Mackhack]

Zitat von Hansa:

Am besten : schreibs selber. Das geht. Spontan fällt mir ein Panel ein. X,Y, Farbe, Parent das Edit und fertig. Idee ist nicht schlecht. Die Hints sind Scheiße.

Idee gut, Hints schlecht? Wie ist denn das zu verstehen? 8)

[Hansa]

Die vorhandenen Hints sind schlecht. Die Idee, sie zu verbessern ist gut, Rest bitte als PN. Mir schwebt da was vor.

[mkinzler]

^Warum sollte das für die Öffentlichkeit nicht auch interessant sein?

[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.

[Mackhack]

Luckie,
ich hab mal das XPManifest von Delphi auf die Form gezogen will aber noch nicht. Wie binde ich denn deine File mit ein?

[Luckie]

{$R manifest.res}

[Sharky]

Zitat von Luckie:

{$R manifest.res}

Dann musst Du aber auch die XML beilegen? Sonst kann man die RC ja nicht kompilieren. Oder?

[Mackhack]

Aber muss ich die net noch vorher mit brcc32 compilieren? Und das schlaeg fehl!

@Roter Kasten: Japp genau das ist passiert. Wo muss die xml dann noch hin?