@jamey.kohler
Для того чтобы создать надпись на TShape в Delphi, следуйте этим шагам:
Например, чтобы создать TShape с надписью "Привет, мир!" выровненной по центру, вы можете использовать следующий код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
procedure TForm1.FormCreate(Sender: TObject); begin // создаем TShape var Shape1: TShape := TShape.Create(Form1); Shape1.Parent := Form1; Shape1.Shape := stRectangle; Shape1.Width := 200; Shape1.Height := 100; Shape1.Left := 50; Shape1.Top := 50; // устанавливаем надпись и параметры шрифта Shape1.Caption := 'Привет, мир!'; Shape1.Font.Name := 'Arial'; Shape1.Font.Size := 14; Shape1.Font.Style := [fsBold]; end; |