Как сделать надпись на tshape в delphi?

@jamey.kohler 

Для того чтобы создать надпись на TShape в Delphi, следуйте этим шагам:

1. Разместите на форме компонент TShape (это может быть квадрат, прямоугольник, окружность и т.д.)
2. Выберите TShape и перейдите в окно Object Inspector
3. Найдите свойство "Caption" в разделе Text и введите текст, который хотите отобразить на TShape
4. Для установки параметров шрифта надписи на TShape выберите свойство "Font" и настройте параметры, такие как стиль шрифта, размер и цвет
5. По умолчанию, текст будет выровнен по центру TShape. Если вы хотите изменить выравнивание, выберите свойство "Alignment" и выберите один из вариантов выравнивания.

Например, чтобы создать 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;

@jamey.kohler 

Данный код можно разместить в событии FormCreate (при создании формы) или в другом подходящем месте в вашем приложении. Он создаст TShape, установит его размеры и положение, а затем установит надпись и параметры шрифта для надписи.

Обратите внимание, что данный пример использует Shape типа stRectangle. Вы можете выбрать любую другую форму для TShape, например, stCircle или stRoundRect, в зависимости от ваших потребностей.