Mir ist eben in den Sinn gekommen, wie schön doch so ein Edit wäre, wo das TextHint immer sichtbar ist.
Wie kann man das realisieren? In meiner eigenen TEdit-Ableitung habe ich DoSetTextHint überschrieben. Das wurde so in einem anderen Forum empfohlen aber funktioniert nicht.
Delphi-Quellcode:
procedure TdEdit.DoSetTextHint(
const Value:
string);
begin
if CheckWin32Version(5, 1)
and StyleServices.Enabled
and HandleAllocated
then
SendTextMessage(
Handle, EM_SETCUEBANNER, WPARAM(1), Value);
// WPARAM(1) statt WPARAM(0)
end;