Цитата:
|
Сообщение от lohack
У меня на форме есть 20 кнопок и 20 memo, хочу чтобы при нажатии 1 кнопки 1-ый мэмо был виден, а остальные нет! И так далее при нажатии 2-ой кнопки чтобы был виден 2 мэмо, а остальные нет. И мне сказали что это можно с помощью массива сделать, а как я незнаю подскажите плиз !!! (Заранее всем спасибо, и извинения за тупые вопросы !!!)
|
1. Пропиши у всех Memo.Tag = 1,2,3...20
2. Пропиши у всех Button.Tag
3. Все Memo должны называться Memo1, Memo2 ... (или переименую в процедуре)
4. Все события Button[1-20] .OnClick присвой процедуру ниже
procedure Button1.OnClick(Sender: TObject);
begin
for i:=1 to 20 do
((Form1.FindComponent('Memo'+IntToStr(i))) As TMemo).Visible := ((Form1.FindComponent('Memo'+IntToStr(i))) As TMemo).Tag=(Sender As TButton).Tag;
end;
Может где ошибся, пишу на память :-)