Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Custom drawing in TEdit

    Delphi
    by Whookie, 8. Aug 2014
  Nur mal kurz die Messages durchgesehen und das probiert:
  
  
  procedure TMyEdit.WndProc(var Message: TMessage);
  begin
  DebugString(dbGetMsgName(Message));
  if Message.Msg = CN_CTLCOLOREDIT then
  Begin
  SetBkMode(TWMCtlColor(Message).ChildDC,TRANSPARENT);
  Message.Result:=GetStockObject(HOLLOW_BRUSH);