![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
процедура после FormShow [D7, XP]
Fynjy © (2008-09-05 14:21:00)здрасьте! Вот у меня процедура Button1.Click она вызывает процедуру FormShow (вызывает другую форму - форму2). Вот если я пишу например Showmessage('что-то') после FormShow в Button1.Click то ничего не происходит, а мне нужно чтобы после закрытия формы2, Showmessage('что-то') в Button1.Click выполнялась.
unit1
type
...
implementation
uses unit2;
Procedure Button1.Click (sernder:TObject);
begin
FormShow;
showmessage('что-то...');
end;
___________________________________________
unit2
type
...
procedure FormShow;
....
implementation
uses unit1;
procedure FormShow;
begin
with TForm2.Create(application) do
try
еще одна процедура;
show;
finally;
free;
end;
end;
ну и т.д.
поможет кто-нить?
Сергей М. (2008-09-05 16:58:00) [1]
> Fynjy (05.09.08 16:56) [31]
тебе решение нужно или засранство показать ?
Изволь ответить на [29]
Fynjy (2008-09-05 16:56:00) [2]Anatoly Podgoretsky © я бы тебе Р Ы Л О бы начистил, за твой юмор, ты сюда поржать заходишь? Ты ничего умного ни сказал еще, а уже пальцы гнешь. Ты небось у себя на работе как мышь, сдесь самоутверждаешься?
Anatoly Podgoretsky (2008-09-05 16:49:00) [3]> Fynjy (05.09.2008 16:36:28) [28]
Уже подсказали - тут программист нужен.
Сергей М. (2008-09-05 16:48:00) [4]
> где искать ошибку
Судя по нарисованной тобой картине - где угодно в каком угодно коде, который получает управление в результате жмаканья BitBtn.
А уж что ты там нахреновЕртил в этом коде - то нам то неведомо.
Fynjy (2008-09-05 16:36:00) [5]нет, а почему так может быть, подскажите хоть где искать ошибку.
Palladin (2008-09-05 16:33:00) [6]Ну прям Носов "Фантазёры"
Сергей М. (2008-09-05 16:20:00) [7]
> Fynjy (05.09.08 16:15) [25]
Чудесно.
А видимого результата ShowMessage якобы каки прежде ты на экране не обнаруживаешь ?
Fynjy (2008-09-05 16:15:00) [8]
> не доводит ShowModal до исполнения?
почему не доводит? она ведь показывается.
Форма закрывактся припомощи BitBtn.
Anatoly Podgoretsky (2008-09-05 16:09:00) [9]
> Показывай код ..
Не код, а год.
Неужели меньше 9?
Palladin (2008-09-05 16:09:00) [10]
> Fynjy (05.09.08 16:06) [21]
а уничтожать форму Пушкин будет? и что за таинственная процедура BBB в которуй вдруг запросто делается тихий нелегальный Abord либо, что то еще загадочное, что не доводит ShowModal до исполнения?
Anatoly Podgoretsky (2008-09-05 16:08:00) [11]> Сергей М. (05.09.2008 16:03:17) [17]
> И все-таки вы с "другом" одноутробные..
однояйцевые!
Fynjy (2008-09-05 16:06:00) [12]
procedure AdvancedSearchShow;
begin
with TAdvancedSearchForm.Create(Application) do
begin
BBB;
ShowModal;
end;
end;
Ф2
procedure TMainFrame.btnFilterExClick(Sender: TObject);
begin
AdvancedsearchShow;
ShowMessage('jhefbfefbverbvguih');
end;
Palladin (2008-09-05 16:06:00) [13]
> Я посмотрел бы на тебя в мои года.
:) тебе 14?
Anatoly Podgoretsky (2008-09-05 16:05:00) [14]> Fynjy (05.09.2008 15:51:16) [16]
Да какие наши года.
Сергей М. (2008-09-05 16:03:00) [15]
> Fynjy (05.09.08 15:51) [16]
И все-таки вы с "другом" одноутробные..
Я все по поводу того самого IBQuery, который якобы тут ни при чем и который якобы мусолит твой "друг", а не ты)
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1219302166&n=18
Я не понимаю, зачем нужна переднеплановая немодальная Ф2, в то время как юзер работает с Ф1 ..
Сергей М. (2008-09-05 16:03:00) [16]
> показываю модально, все так же как и было
>
Показывай код ..
Fynjy (2008-09-05 15:51:00) [17]показываю модально, все так же как и было
> пока не наступит совершеннолетие :) или позже
Я посмотрел бы на тебя в мои года.
Palladin (2008-09-05 15:47:00) [18]
> сколько еще раз нужно повторить это страшное слово,
пока не наступит совершеннолетие :) или позже
Сергей М. (2008-09-05 15:44:00) [19]Да не надо тебе никаких событий !
Показывай форму модально, сколько еще раз нужно повторить это страшное слово, чтобы ты проникся ?)
Fynjy (2008-09-05 15:40:00) [20]может определить какое-нить событие связанное с закрытием формы2? можно так как- нить?