проверить если кнопка нажата на другой форме

[igelchen]

Всем здравствуйте, возник вопрос. Хотелось бы проверить если кнопка нажата на другой форме. Знаю ответ возможно легкий, но я в этом новичок . Пыталась что то вроде этого:

if Form2.button.click = true then 
begin
function...
end;

но тут выскакивает ошибка. Очень нужна ваша помощь

[GreenWizard]

создай переменную-поле Х внутри Form2
присвой ей false
создай обработчик OnClick и пропиши X := true;
проверяй Х, если он true, то кнопка была единожды когда-то нажата

P. s. сама задача не корректна, не должно быть нужно узнавать было ли нажатие или нет....

[type_Oleg]

А как это может быть?
Обычная кнопка Button - без фиксации. Она может быть нажата только при активной той, другой формы Form2.
А вам вроде как нужно проверять, когда активна основная форма Form1.

Как вам написал GreenWizard - проверяется , была ли она нажата когда-то. Потому что сейчас она точно не нажата.

Или используйте кнопку с фиксацией SpeedButton, они могут оставаться нажатыми.

[igelchen]

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

создай переменную-поле Х внутри Form2
присвой ей false
создай обработчик OnClick и пропиши X := true;
проверяй Х, если он true, то кнопка была единожды когда-то нажата

P. s. сама задача не корректна, не должно быть нужно узнавать было ли нажатие или нет....

дело в том что хотелось бы чтобы при нажатии на кнопку 1 на форме А выскакивает форма Б со всеми функциями, а при нажатии на кнопку 2 выскакивает так же форма Б но с ограниченными функциями, например скрыты пару strgrid's или memo's. Так вот я думала на форме Б проверять нажата ли кнопка и например на методе OnFormShow, при нажатии определенной кнопке на форме А скрывать ненужные функции на форме Б...

[GreenWizard]

добавь в класс формы В методы showFull и showLimited, них настраивай что видно на форме, а что нет, потом уже делай обычный показ формы В
ну и, естественно, в кнопке 1 вызывай showFull, 2 - showLimited

P.s. это лишь один из вариантов адекватного решения

[igelchen]

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

добавь в класс формы В методы showFull и showLimited, них настраивай что видно на форме, а что нет, потом уже делай обычный показ формы В
ну и, естественно, в кнопке 1 вызывай showFull, 2 - showLimited

P.s. это лишь один из вариантов адекватного решения

а где можно найти эти методы?

[zvygin1964]

О методах: http://citforum.ru/programming/32less/les17.shtml

[GreenWizard]

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

а где можно найти эти методы?

их нужно создать) внутри TForm2, в секции public, пишешь "procedure Имя;", жмёшь ctrl+shift+c и оно появляется) и уже внутри описывай всё что скрывать\показывать

[igelchen]

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

их нужно создать) внутри TForm2, в секции public, пишешь "procedure Имя;", жмёшь ctrl+shift+c и оно появляется) и уже внутри описывай всё что скрывать\показывать

все сделала как вы и подсказали. Скажите как можно вызвать эту процедуру с другого модуля? Пыталась вписать в OnClick, Form2.showLimited, но видать я ее не правильно вызываю

[northener]

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

все сделала как вы и подсказали. Скажите как можно вызвать эту процедуру с другого модуля? Пыталась вписать в OnClick, Form2.showLimited, но видать я ее не правильно вызываю

Значит что-то сделала не так как подсказали.