Работа с Button в delphi

[Source-of-life]

Не подскажите, можно ли сделать так, чтобы при нажатии одной кнопки, проверялось условие нажатия другой и если оно выполнено, то выполняются какие-либо действия.
Если не понятно объяснил, то тут мой замысел:
При нажатии на первую кнопку, массив из N элементов забивается произвольными значениями. Так же есть и другая кнопка, которая ищет максимальные значения в массиве. И вот как-то надо сделать, чтобы сначала при нажатии на первую кнопку массив генерировался (это я сделал) а при нажатии на вторую, из элементов этого массива выбирались максимумы)

[Google2010]

а куда ты заносишь сгенерированный массив?

[Source-of-life]

В смысле куда выводятся элементы? (На листбокс)
Или к чему они относятся?) Извиняюсь) Не понял вас)

[Google2010]

max:=strtofloat(listbox.items[0])
for i:=1 to listbox.items.count-1 do
if strtofloat(listbox.items[i])>max then max:=strtofloat(listbox.items[i]);

[Source-of-life]

А.... то есть мы уже с листбоксом работаем)
Спасибо огромное) Сам не додумался)
А не подскажете еще, что-нибудь типа
"If button1.Click := true" или что-нибудь в этом роде, можно было бы применить? Чтобы листбокс не трогать.

[evg_m]

пример управления доступностью кнопок

procedure Tform1.FormCreate
begin 
button1.enabled:=true;
button2.enabled:=false;
//здесь можно нажимать только на первыю кнопку
end;

procedure Tform1.button1Click
begin
// здесь заполнение массива
button2.enabled:=true;
//разрешаем нажимать и на вторую кнопку
end;

procedure Tfrom1.button2.click;
begin
//здесь определение максимального
button2.enabled:=false;
// на вторую кнопку нажимать снова нельзя
end;

[Serge_Bliznykov]

evg_m, +1

Это безусловно наглядный и работоспособный вариант.

добавлю ещё один вариант решения проблемы. Может быть, Source-of-life пригодится...

можно добавить в описание формы переменную (а при необходимости и несколько переменных!) булевского типа (имя переменной любое, например, isArrayCreated):

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ....
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    ....
  private
    { Private declarations }
     isArrayCreated : boolean;
     ...

на событие создания формы Form1 - events - OnCreate
пишешь начальную иницилизацию этой переменной. Ведь вначале программы у нас массив ещё не создан:

procedure TForm1.FormCreate(Sender: TObject);
begin
   isArrayCreated := False;
   ...

а потом, после нажания на button1 создаёшь/заполняешь свой массив и присваиваешь переменной признак, что массив создан:

procedure Tform1.Button1Click(Sender: TObject);
begin
   {код по созданию/заполнению массива }
  isArrayCreated := True;
  ...

а теперь, при нажатии на Button2 легко проверить, как у нас дела с массивом:

procedure TForm1.Button2Click(Sender: TObject);
begin
   if Not isArrayCreated then begin
      Application.MessageBox( 'Сначала нажмите на кнопку "ЗАПОЛНИТЬ МАССИВ"', 
               'Ошибка', MB_ICONERROR or MB_OK);
      Exit;
   end;

   {тут обработка Вашего массива}

p.s. извините, что так подробно всё изложил...

[Google2010]

ну и без новых переменных и enable

procedure TForm1.FormCreate(Sender: TObject);
begin
   button1.tag:=0;

procedure Tform1.Button1Click(Sender: TObject);
begin
   {код по созданию/заполнению массива }
 button1.tag:=1;

procedure TForm1.Button2Click(Sender: TObject);
begin
   if button1.tag=0 then begin
      Application.MessageBox( 'Сначала нажмите на кнопку "ЗАПОЛНИТЬ МАССИВ"', 
               'Ошибка', MB_ICONERROR or MB_OK);
      Exit;
   end;

   {тут обработка Вашего массива}
button1.tag=0

[Serge_Bliznykov]

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

ну и без новых переменных и enable

ну, можно и так..
работать будет без всяких нареканий.
Вот только наглядность/сопровождаемость программы очень сильно страдает... впрочем, для учебной задачи на пару десятков строк — вполне даже можно использовать.

p.s. кстати, из всёх трёх представленных способов все три (на мой взгляд) равнозначно применимы, т.е. нет явного "безусловного" лидера...
автору можно смело брать любой понятный/понравившийся!