Delphi - Delphi

Savant · Отправлено: **22:49, 13-01-2005** | #11

Netscaper
Можешь еще помочь? Как изменить порядок элементов в Form1.Controls[k] ? А то у меня с 0 по 4 идут TLabel, с 5 по 14 TImage, а потом снова продолжаются TLabel, но уже и вперемешку с TStaticText

. И так я уже замучался сотню TLabel в TStaticText "переделывать", так тут еще фигня появилась. Пытался редактировать файл *.dfm, но он по-видимому не является определяющим в этом вопросе.

Netscaper · Отправлено: **23:27, 13-01-2005** | #12

Не очень понял смысл использования свойства Form.Controls... Почему нельзя написать Form.Label1 или Form.StaticText?

Цитата:

Пытался редактировать файл *.dfm, но он по-видимому не является определяющим в этом вопросе.

Да, ты прав... Действительно, создается «от балды»... Влияет только на невизуальные компоненты, а на визуальные - нет. Порядок создания невизуальных можно менять в «Edit - Creation Order». Что, собственно, возвращает к вопросу о том, почему нельзя обращаться напрямую к Label или StaticText.

Savant · Отправлено: **23:40, 13-01-2005** | #13

Netscaper

Цитата:

Не очень понял смысл использования свойства Form.Controls

У меня на форме МНОГО однотипных элементов всего четырёх "видов" (Label, StaticText, Edit, Image). Поэтому обращаться к ним ТАК

Код:

.........
Form1.Label1.Caption:="...";
Form1.Label2.Caption:="...";
...
Form1.Label20.Caption:="..";
.........

было бы не очень удобно и приятно.
Гораздо эффективнее так:

Код:

const a: array[1..20] of String = (...);
...........
for i:=0 to 19 do
  Form1.Controls[i].SetTextBuf(PChar(a[i+1]));

Аналогично мне надо одновременно сменить "жирность" шрифта у нескольких стоящий подряд StaticText. Так вот этого удобного порядка не получается, часть элементов у меня перемешались. А вот найти где этот порядок? Я по-моеему уже все перекопал, что в папке с моим проектом лежит...

Netscaper · Отправлено: **00:00, 14-01-2005** | #14

Но ты можешь сделать так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  for i:=1 to 20 do
    (FindComponent('Label'+IntToStr(i)) as TLabel).Caption := IntToStr(i);
end;

Savant · Отправлено: **00:29, 14-01-2005** | #15

Netscaper
Полностью согласен, я несколько ранее рассматривал различные варианты реализации нужного мне алгоритма, но по скорости выиграл Form1.Controls[k].SetTextBuf(PChar(a[k+1])); Не люблю перескакивать с одного на другое когда уже готово приличное кол-во кода, но видимо придется, раз нет возможности изменить порядок следования элементов в Form1.Controls[k].

Но вот для смены "жирности" шрифта он, кажется, мне подходит. Почему-то про него я забыл.