|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Несколько вопросов от начинающего
Здравствуйте. Начинаю учиться, читаю литературу, но так и не смог понять, как сделать, чтобы в каждом label имеющим определённое имя автоматом давало текстовое название на русском, имеющее определённый шрифт, цвет и т.д. Просто у меня несколько вкладок и на каждой мне приходится создавать lable и всё прописывать индивидуально, впрочем выравнивать по top и left приходится вручную, ведь при копировании label почему-то смещается чуть влево и вниз. Хотелось бы побольше автоматизма.
И почему когда я копирую label в определённую вкладку, он у меня копируется в какую-то другую(не увидел связи, возможно, рандомно выбирается вкладка) Хочу сделать такой параметр, как "казна". Можно ли в конце как нибудь добавить значок $? Или просто поставить в конце edit'a label'y со знаком $? Заранее спасибо. Извините, если написал не туда. Не увидел темы "Вопрос - ответ". Могу ли я продолжить задавать вопросы в этой теме? Последний раз редактировалось Killen, 12.05.2013 в 22:06. |
#2
|
|||
|
|||
Не особо понял вопрос, но если тебе нужно программно поменять данные, то нужно всем 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:='Казна $'; |
#3
|
||||
|
||||
Цитата:
|