Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: TEdit mit Rand

    Delphi
    by Flocke, 2. Aug 2006
  Wie die Standardwerte sind weiß ich nicht, kann sogar vom Theme abhängen (denke ich). Du könntest sie vorher mit EM_GETMARGINS sichern. Die VCL setze übrigens nach jedem erhaltenen WM_SETFONT die Ränder wieder auf Null, also ist das für Delphi sozusagen der Standardwert.
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: TEdit mit Rand

    Delphi
    by Flocke, 2. Aug 2006
  // Setzt den linken Rand
  SendMessage(Edit1.Handle, EM_SETMARGINS, EC_LEFTMARGIN, MAKELONG(LinkerRand, 0));
  // Setzt den rechten Rand
  SendMessage(Edit1.Handle, EM_SETMARGINS, EC_RIGHTMARGIN, MAKELONG(0, RechterRand));
  // Setzt beide Ränder
  SendMessage(Edit1.Handle, EM_SETMARGINS, EC_LEFTMARGIN or EC_RIGHTMARGIN, MAKELONG(LinkerRand, RechterRand));
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: TEdit mit Rand

    Delphi
    by Flocke, 2. Aug 2006
  Probiere das hier (z.B. in CreateWindowHandle nach inherited):
  
  SendMessage(Edit1.Handle, EM_SETMARGINS, EC_RIGHTMARGIN, MAKELONG(0, 20));
  
  
  //Nachtrag: und nach WM_SETFONT/inherited solltest du es auch noch einmal setzen, da die VCL es zurücksetzt.