Button

[Рассол]

Как при нажатии одной кнопки сделать невидимыми все остальные?

[Hacker19_90]

FindComponent заюзай!

[ByAlex]

Сообщение от Рассол

Как при нажатии одной кнопки сделать невидимыми все остальные?

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.Hide;
end;

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.Hide;
end;

И в чём прикол?

[Кольша]

можно все отсальное на панельку и оп

panel.visible:=false;

[ByAlex]

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

И в чём прикол?

Прикол в том, что исчезает вся форма вообще вместе с компонентами!

[Рассол]

пишу
begin
findcomponent(Button2,Button3) do visible:=false;
end;

дает
Incompatible types: 'String' and 'TButton'

[Hacker19_90]

пфффффф
нда вы справку то читали?
Делайте так

for i := 2 to количество батонов do
    TButton(FindComponent('Button' + IntToStr(i))).Visible := false;

В чём суть разберётесь

[Рассол]

Огромное спасибо.