Скрытие кнопки при нажатии на нее

[MyLastHit]

Здравствуйте. Вот написал программу, здесь при нажатии на Button1 в ScrollBox появляются кнопки. Как реализовать такое(с минимальными затратами), что при клике на каждую кнопку ее Visible переходил в False?
Реализацию тупым методом я знаю...но не хочется писать для каждой кнопке по процедуре...

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Byte;

begin
 if verCreated then
   exit;
 verCreated := true;
 for i := 1 to 10 do
 begin
 {Create the buttons}
 RunTimeButtons[i] := TButton.Create(Self);
 with RunTimeButtons[i] do
 begin
  Parent := ScrollBox1;
  Caption := 'Button' + IntToStr(i);
  Top := i*height;
  Tag := i;
  {Assign a OnClick handler}
     Visible := True;
 end;
  end;

[JTG]

procedure TForm1.ButtonClick(Sender: TObject);
begin
 (Sender as TButton).visible := false  
end;

и назначай этот обработчик всем кнопкам

[MyLastHit]

В вышеуказаном коде, аналогом указал создание TMemo, в ваш обработчик поставил :

procedure TForm1.ButtonClick(Sender: TObject);
begin
 (Sender as TButton).visible := false;
(Sender as TMemo).Visible:=true;
end;

Неужели это ошибочно?

Вот полный код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
n: integer;
begin
if verCreated then
exit;
verCreated := true;
n:=strtoint(edit1.text);
for i := 1 to n do
begin

RunTimeButtons[i] := TButton.Create(Self);
RunTimeButtons1[i] := TMemo.Create(Self);
with RunTimeButtons[i] do
begin
Parent := ScrollBox1;
Caption := '#' + IntToStr(i);
Top := i*height;
Tag := i;
{Assign a OnClick handler}
Visible := True;
align:=alTop;
onclick:=buttonclick;

with RunTimeButtons1[i] do
begin
Parent := ScrollBox1;
Text := '#' + IntToStr(i);
Top := i*height;
Tag := i;
Visible := false;
align:=alTop;

end;
end;
end;
end;

[DomiNick]

Так... И откуда TMemo взялся? Что именно нужно сделать-то?

[MyLastHit]

Выпадающий список все еще хочу сделать вот так) При клике по кнопке, созданная ТМемо, должна становится висибл(индекс Мемо и индек Баттон совпадают). Но она ни висибл ни инвизибл становиться не хочет...

[Hacker19_90]

FindComponent ???

[MyLastHit]

Нет, хочу свой список. у всех компонентов очень узкая специфика.

[MyLastHit]

procedure TForm1.ButtonClick(Sender: TObject);
begin
 (Sender as TButton).visible := false;
(Sender as TMemo).Visible:=true;
end;

и всеже почему неправильно?

[DomiNick]

По видимому один из end'ов не там поставлен... И какого типа эти RunTimeButtons?

Sender - это кнопка на которую нажали, а вы пытаетесь к нему обратиться как к memo... Узнайте какой у Sender индекс и скрывайте мемо с таким же индексом...

[MyLastHit]

По видимому один из end'ов не там поставлен... И какого типа эти RunTimeButtons?

массив, все компилируется но вылетает какаято ошибка

Sender - это кнопка на которую нажали, а вы пытаетесь к нему обратиться как к memo... Узнайте какой у Sender индекс и скрывайте мемо с таким же индексом...

как узнать этот индекс и как им пользоваться?