[lohack]

У меня на форме есть 20 кнопок и 20 memo, хочу чтобы при нажатии 1 кнопки 1-ый мэмо был виден, а остальные нет! И так далее при нажатии 2-ой кнопки чтобы был виден 2 мэмо, а остальные нет. И мне сказали что это можно с помощью массива сделать, а как я незнаю подскажите плиз !!! (Заранее всем спасибо, и извинения за тупые вопросы !!!)

[Phedor]

Сообщение от 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;

Может где ошибся, пишу на память :-)

[lmikle]

А зачем так сложно? RTTI для чего сделан?

1. Прописываешь Tag у TMemo
2. Прописываешь Tag у TButton
3. Далее делаешь вот такой обработчик и присваиваешь его ВСЕМ 20 кнопкам:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
  AButtonTag : Integer;
  I : Integer;
begin
  If Sender Is TButton Then
    Begin  
      AButtonTag := (Sender As TButton).Tag;
      If Not (Tag In [1..20]) Then Exit; // Здесь проверка на то, что Tag от 1 до 20
      For I := 0 To ComponentCount-1 Do
        If Components[i] Is TMemo Then
          (Components[i] As TMemo).Visible := (Components[i] As TMemo).Tag = AButtonTag;
    End;
end;

При этом имена контролов могут быть любые. Можно без Tag, но тогда придется "зашиваться" на имена.

[lohack]

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

А зачем так сложно? RTTI для чего сделан?

1. Прописываешь Tag у TMemo
2. Прописываешь Tag у TButton
3. Далее делаешь вот такой обработчик и присваиваешь его ВСЕМ 20 кнопкам:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
  AButtonTag : Integer;
  I : Integer;
begin
  If Sender Is TButton Then
    Begin  
      AButtonTag := (Sender As TButton).Tag;
      If Not (Tag In [1..20]) Then Exit; // Здесь проверка на то, что Tag от 1 до 20
      For I := 0 To ComponentCount-1 Do
        If Components[i] Is TMemo Then
          (Components[i] As TMemo).Visible := (Components[i] As TMemo).Tag = AButtonTag;
    End;
end;

При этом имена контролов могут быть любые. Можно без Tag, но тогда придется "зашиваться" на имена.

Подчёркивает var красным !!!
А в первом случае, подчёркивает строчку --- for i:=1 to 20 do

[lmikle]

Да ладно, что-нить нетак сделал, т.к. код 100% рабочий - проверил перед отправкой. Мож у тебя форма подругому называется, или var с русской а написан?

[lohack]

Я просто код со страницы скопировал !!!

[Drozh]

Ну посмтри и напиши нам что за ошибка?))) Может ты функцию скопировал а прописть в заголовке забыл...

[lohack]

А ты не мог бы сам всё сделать и мне исходник на мыло кинуть ??? Только не 20 кнопок и мэмо а хотя бы 3 !!!
roman_s2510@mail.ru

[Drozh]

Держи))) Кста там вместо

Код:

If Not (Tag In [1..20]) Then Exit;

Нужно писать

Код:

If Not (AButtonTag In [1..20]) Then Exit;

Но это мелочь

[lohack]

БОЛЬШОЕ СПАСИБО !!! Дальше как-нибудь сам !!!

[lohack]

Спасибо! Всё ништяк !