[nonVCL] Automatisch verschwindender Text in Edit Box

[lbccaleb]

Hallo,

Ihr kennt doch bestimmt diese Eingabe Boxen die in den mit blauem Text z.B. steht "Hier den blabla Text" einfügen.
Wenn man dann in die Edit Box klickt, verschwindet der Text automatisch und die normale Eingabe startet.

Nun also die Frage: Kann ich das OHNE VCL auch machen, oder muss ich mir das selber irgendwie zusammen bauen? Wenn ja, wie?

mfg Martin

[jaenicke]

Ich glaube das konnte man per Windows Message setzen, das kam glaube ich von Windows selbst...

// EDIT:
Kurz mal in die Doku geschaut, die Message ist EM_SETCUEBANNER:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[lbccaleb]

Vielen Dank!
Ich wusste nicht wonach ich suchen sollte...

[lbccaleb]

Jetzt muss ich mich doch nochmal hier melden, also das MSDN sagt:

Zitat:

You cannot set a cue banner on a multiline edit control or on a rich edit control.

Nun ist natürlich genau das mein Problem. Wie kann ich das ganze in einem Multiline Control erzeugen? Hat da vllt. jemand eine Idee für mich?

[himitsu]

Genauso, wie es viele Webseiten immernoch machen.

Hinweis-Text als TEXT reinschreiben (eventuell Rextfarbe ändern) und im OnEnter oder beim ersten Tastenklick den Text wieder löschen und im OnExit wieder anzeigen (wenn Text leer).
Alternatov ein eigenes OnPaint, das bei leer was anderes reinmalt (macht cue-banner intern auch nicht anders)

[lbccaleb]

Also lauffähig hab ich es jetzt, mit nur einem kleinen Problem, jedesmal wenn ich was eingebe in das Memo, und dann das Memo den Fokus verliert und dann wiederbekommt, verschwindet der Text (ist noch da aber nicht mehr sichtbar). Erst wenn ich den Text markiere oder änder wird er wieder angezeigt, woran kann das liegen??

Delphi-Quellcode:

function MemoWndProc(hEdit: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
 rc: TRect;
 OldFont: HFONT;
 S: string;
 DC: HDC;
 PaintStruct: TPaintStruct;
begin
  case uMsg of
    WM_PAINT:
      begin;
        DC := BeginPaint(hEdit, PaintStruct);

        GetClientRect(hEdit, rc);
        SetBkMode(DC, TRANSPARENT);
        OldFont := SelectObject(DC, hAppFont);

        if (Length(GetText(hEdit)) < 1) and (GetFocus <> hEdit) then begin;
          case GetDlgCtrlID(hEdit) of
            IDC_MEMO1: S := szKBText;
            IDC_MEMO2: S := szReccFarmsText;
          end;
        SetTextColor(DC, GetSysColor(COLOR_GRAYTEXT));
        DrawText(DC, PChar(S), Length(S), rc,  DT_CENTER or DT_VCENTER or DT_NOPREFIX or DT_WORDBREAK);
        end;

        SelectObject(DC, OldFont);
        ReleaseDC(hEdit, DC);
        DeleteObject(OldFont);

        EndPaint(hEdit, PaintStruct);
        Result := 0;
     end
  else
    Result := CallWindowProc(OldWndProc, hEdit, uMsg, wParam, lParam);
  end;
end;