Mega Code Archive

 

Categories / Delphi / VCL

 

Align menu text to the right

Title: Align menu text to the right If you want align menu items text to the right, then you may use this little deceit. procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin with MainMenu1 do for i:=0 to Items.Count-1 do Items[i].Caption:=Chr(8)+Items[i].Caption; end;