Skip to content

Instantly share code, notes, and snippets.

@evandroamparo

evandroamparo/gist:1dc6477851dd3fa60d650b50b8e0f6ee

Created December 13, 2019 11:37
Show Gist options
  • Save evandroamparo/1dc6477851dd3fa60d650b50b8e0f6ee to your computer and use it in GitHub Desktop.
Save evandroamparo/1dc6477851dd3fa60d650b50b8e0f6ee to your computer and use it in GitHub Desktop.
Download ZIP
Delphi - alinhar TEdit à direita
Raw
gistfile1.pas
OldStyle := GetWindowLong(Edit.Handle, GWL_STYLE);
NewStyle := (OldStyle and not(ES_LEFT or ES_CENTER or ES_RIGHT)) or ES_RIGHT;
SetWindowLong(Edit.Handle, GWL_STYLE, NewStyle);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment