Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#12

AW: Leeres Eingabefeld mit Standardwert füllen

  Alt 24. Dez 2015, 10:07
Auf jeden Fall wird dieser TextHint über das OS realisiert:
Delphi-Quellcode:
procedure TCustomEdit.DoSetTextHint(const Value: string);
begin
  if CheckWin32Version(5, 1) and StyleServices.Enabled and HandleAllocated then
    SendTextMessage(Handle, EM_SETCUEBANNER, WPARAM(0), Value);
end;
Aber die Funktion ist nicht so, wie vom TE gefordert:
Sobald das erste Zeichen in diesem Eingabefeld geschrieben wurde, soll dieser Standardwert verschwinden und wenn es leer ist wieder erscheinen.
Windows versteckt den TextHint sobald das Edit-Feld den Fokus erhält

Dann geht das wohl auch mit älteren Delphi-Versionen.
Logisch, hat ja auch mit Delphi nichts zu tun, sondern mit der Windows-Version
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat