Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите ламеру


Alf_ ©   (2002-09-26 07:37:00) 

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.ShowModal();
end;

procedure TForm2.FormShow(Sender: TObject);
begin
// как мне узнать какая кнопка была нажата на первой форме?
end;


alf_   (2002-09-26 07:56:00) [1]

А почему лучше в Form2 ?


Alf_   (2002-09-26 07:55:00) [2]

А без обьявления переменной можно ?
Там случайно в форму не передаеться каким она обьектом была вызвана?


Anatoly Podgoretsky   (2002-09-26 07:54:00) [3]

Только эту переменнцю лучше организовать в Form2


MBo   (2002-09-26 07:44:00) [4]

procedure TForm1.Button1Click(Sender: TObject);
begin
ButtonPressed:=1; //(или Button1)
Form2.ShowModal();
end

а в form2 смотри эту переменную


Наверх

Титульная страница Поиск, карта сайта Написать письмо