How do i custom draw of TEdit control text?

Question

I\'d like to draw a piece of TEdit.Text using Font.Color different from the default. Are there any examples how to do that?

I\'m attempting to do something like thi

Answer 1

Another small improvement by overriding the CreateParams procedure which fixes the flickering during text selection (mouse move while left button down):

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
    inherited;
    if csDesigning in ComponentState then
        exit;
    Params.ExStyle := Params.ExStyle or WS_EX_COMPOSITED;
end;