[Killen]

Здравствуйте. Начинаю учиться, читаю литературу, но так и не смог понять, как сделать, чтобы в каждом label имеющим определённое имя автоматом давало текстовое название на русском, имеющее определённый шрифт, цвет и т.д. Просто у меня несколько вкладок и на каждой мне приходится создавать lable и всё прописывать индивидуально, впрочем выравнивать по top и left приходится вручную, ведь при копировании label почему-то смещается чуть влево и вниз. Хотелось бы побольше автоматизма.
И почему когда я копирую label в определённую вкладку, он у меня копируется в какую-то другую(не увидел связи, возможно, рандомно выбирается вкладка)
Хочу сделать такой параметр, как "казна". Можно ли в конце как нибудь добавить значок $? Или просто поставить в конце edit'a label'y со знаком $?
Заранее спасибо. Извините, если написал не туда. Не увидел темы "Вопрос - ответ". Могу ли я продолжить задавать вопросы в этой теме?

[Ruz]

Не особо понял вопрос, но если тебе нужно программно поменять данные, то нужно всем label дать одинаковый тэг(tag);

Код:

procedure TForm1.FormCreate(Sender: TObject);
var label:TLabel;
N:integer;
begin
N:=1 // номер тэга
if label.tag=N then
begin
label.caption:='Text'; // текст
label.font.color:=clred; // цвет
label.font.size:=14; // размер
label.font.name:=Comic Sans MS; // шрифт
end;
end;

Сам новичок, но должно сработать.

Насчет $, строка может принимать такое значение. Например

Код:

edit1.text:='Казна $';

[Freeman]

Сообщение от Killen

И почему когда я копирую label в определённую вкладку, он у меня копируется в какую-то другую(не увидел связи, возможно, рандомно выбирается вкладка)

Так не бывает. Советую внимательно изучить поведение IDE.