The curse of Dennis D. Spreen

Right To Left Forms support

How to enable Right To Left Forms (including icons and form captions) with Delphi:

Override the CreateParams method and insert

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_LEFT or WS_EX_RTLREADING or
    WS_EX_LEFTSCROLLBAR or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
end;

Now take a look at your BiDiMode settings – it may have the contrary effect if set to “bdRightToLeft”…

Tags: Add new tag, arabic, Delphi Programming, font, RTL

No comments yet.

Leave a comment