|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
выборка 1 Memo по индексу выпадающнго списка
как произвести выборку одного из компонентов TMemo и звдвть какие - то оссобенные свойства пробовал такой код
Код:
var i,j:Cardinal; S:ShortString; begin For i:=0 to Groupbox1.ControlCount-1 do begin S:=''; if Groupbox1.Controls[i].ClassType = TmEMO then begin for j:=1 to Length('class') do S:=S+Groupbox1.Controls[i].Name[j]; if S='class' then Tmemo(Groupbox1.Controls[i]).Visible := false; Tmemo(groupbox1.Controls[clchoose.ItemIndex +1]).Visible := true; end; Начинающий программист уверен что в 1 МБ 1000 КБ законченный программист уверен что в 1 км 1024 м |
#2
|
||||
|
||||
Код:
for I := 0 to ComponentCount - 1 do if (Components[i] is TMemo) and ((Components[i] as TMemo).Parent = GroupBox1) then ... Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |