Можно и иначе
1. - Создай панель(форму) и оформи ее как желаешь.(visible=false)по умолку
2.-Создай глобальную переменную типа целого числа(Integer)
Например click_butt;
3. Перед вызовом своей панели ВСЕГДА обнуляй глобалку click_butt:=0;
4. Перед тем как сделать панель видимой visible:=true настрой и запиши и вставь текст,картинку..короче приведи панель в нужный ТЕБЕ ВИД
5. Далее 2 строчки кода
ПАНЕЛЬ.visible:=true;
While click_butt=0 do application.ProcessMessages;
//В этом месте вход в бесконечный цикл и пока переменная равна нулю компиллер не пойдет по коду расположенному ниже
While click_butt=0 do application.ProcessMessages
и будет соответсвенно ждать твоих действий поскольку click_butt=0
Как только click_butt>0 мы выйдем из цикла..
.... пишем обработку
.......
While click_butt=0 do application.ProcessMessages;
case click_butt of
1:Действие 1;
2:Действие 2;
......
1000000:Милионное действие;
end;
Параметры click_butt изменяй кнопками на своей же новоиспеченной панели(форме). И не забывай про Enabled остальных компонентов чтобы пользователь не ушел от ответа=)
|