процедура после FormShow

← →
Fynjy (2008-09-05 14:21) [0]

здрасьте! Вот у меня процедура 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 14:26) [1]

showmessage выполняется сразу после show

← →
Игорь Шевченко © (2008-09-05 14:28) [2]

программиста найди

← →
Ega23 © (2008-09-05 14:38) [3]

Tform.ShowModal + F1

← →
Сергей М. © (2008-09-05 14:38) [4]

> with TForm2.Create(application) do
> try
> еще одна процедура;
> show;
> finally;
> free;
> end;

Это ты сам придумал или кто-то подсказал ?)

← →
Сергей М. © (2008-09-05 14:41) [5]

> Ega23 © (05.09.08 14:38) [3]

А какая разница модально или не модально ее показывать ?

Все равно ShowMessage должна показать диалог, если вызов FormShow не привел к исключению, а Автор утверждает что вообще ничего не происходит при клике батона)

← →
Fynjy (2008-09-05 14:51) [6]

Сергей М. нет, ну форма вызываетяся, а после закрытия её ничего не происходит, сообщение не выскакивает.

> Это ты сам придумал или кто-то подсказал ?)

Сам придумал.

← →
Сергей М. © (2008-09-05 14:53) [7]

> Сам придумал

Ну раз сам придумал, тогда скажи, каков тайный смысл создать/показать форму, чтобы тут же, через доли секунды, ее закрыть/уничтожить ?

Именно это ты и делаешь в коде, упомянутом в [4] ..

← →
Fynjy (2008-09-05 15:07) [8]

ну не через доли секунды а через некоторое время. И по другому я еще не умею, не знаю как, просто фрма там со множесвом лейблов, эдитов и т.д

← →
Palladin © (2008-09-05 15:13) [9]

> Fynjy (05.09.08 15:07) [8]

поверь, это "некоторое время" и есть доли секунды. и на какую, интересно, продолжительность ты расчитывал этого "некоторого времени"?

← →
Сергей М. © (2008-09-05 15:15) [10]

> И по другому я еще не умею, не знаю как

Что ты вообще хочешь-то ? Т.е. что в идеале должен видеть юзер при клике кнопки ?
Объясни подробно, с чувством, с толком, с расстановкой)..

← →
Fynjy (2008-09-05 15:30) [11]

> поверь, это "некоторое время" и есть доли секунды

да я это с фонаря написал Free не нужно там, но не в этом дело, форма вызывается нормально.
В идеале юзер при клтке кнопки должен увидеть форму со многими полями ввода, после их заполнения и получается та самая "строка" . Затем после нажатия кнопки закрыть, сразу выполняется следующая процедура после формшоу(showmessage я написал просто для примера).

← →
Сергей М. © (2008-09-05 15:35) [12]

> Fynjy (05.09.08 15:30) [11]

Ну так значит форма должна быть показана модально, о чем тебе еще в [3] сказано)

Но как бы ты ее ни показывал, хоть модально хоть немодально, все равно процедура ShowMessage будет выполнена, и ты должен так или иначе увидеть при этом диал.форму с одной кнопкой..

Но ты ведь утверждаешь, что "ничего не происходит", т.е. ты не видишь эту диалог.форму с одной кнопкой, вот в чем чудеса-то)..

← →
Fynjy (2008-09-05 15:40) [13]

может определить какое-нить событие связанное с закрытием формы2? можно так как- нить?

← →
Сергей М. © (2008-09-05 15:44) [14]

Да не надо тебе никаких событий !

Показывай форму модально, сколько еще раз нужно повторить это страшное слово, чтобы ты проникся ?)

← →
Palladin © (2008-09-05 15:47) [15]

> сколько еще раз нужно повторить это страшное слово,

пока не наступит совершеннолетие :) или позже

← →
Fynjy (2008-09-05 15:51) [16]

показываю модально, все так же как и было

> пока не наступит совершеннолетие :) или позже

Я посмотрел бы на тебя в мои года.

← →
Сергей М. © (2008-09-05 16:03) [17]

> Fynjy (05.09.08 15:51) [16]

И все-таки вы с "другом" одноутробные..

Я все по поводу того самого IBQuery, который якобы тут ни при чем и который якобы мусолит твой "друг", а не ты)

http://delphimaster.net/view/2-1219302166/

Я не понимаю, зачем нужна переднеплановая немодальная Ф2, в то время как юзер работает с Ф1 ..

← →
Сергей М. © (2008-09-05 16:03) [18]

> показываю модально, все так же как и было
>

Показывай код ..

← →
Anatoly Podgoretsky © (2008-09-05 16:05) [19]

> Fynjy (05.09.2008 15:51:16) [16]

Да какие наши года.

← →
Palladin © (2008-09-05 16:06) [20]

> Я посмотрел бы на тебя в мои года.

:) тебе 14?

← →
Fynjy (2008-09-05 16:06) [21]

procedure AdvancedSearchShow; begin with TAdvancedSearchForm.Create(Application) do begin BBB; ShowModal; end; end;

Ф2

procedure TMainFrame.btnFilterExClick(Sender: TObject); begin AdvancedsearchShow; ShowMessage("jhefbfefbverbvguih"); end;

← →
Anatoly Podgoretsky © (2008-09-05 16:08) [22]

> Сергей М. (05.09.2008 16:03:17) [17]

> И все-таки вы с "другом" одноутробные..

однояйцевые!

> Fynjy (05.09.08 16:06) [21]

а уничтожать форму Пушкин будет? и что за таинственная процедура BBB в которуй вдруг запросто делается тихий нелегальный Abord либо, что то еще загадочное, что не доводит ShowModal до исполнения?

> Показывай код ..

Не код, а год.

Неужели меньше 9?

← →
Fynjy (2008-09-05 16:15) [25]

> не доводит ShowModal до исполнения?

почему не доводит? она ведь показывается.
Форма закрывактся припомощи BitBtn.

> Fynjy (05.09.08 16:15) [25]

Чудесно.

А видимого результата ShowMessage якобы каки прежде ты на экране не обнаруживаешь ?

Ну прям Носов "Фантазёры"

← →
Fynjy (2008-09-05 16:36) [28]

нет, а почему так может быть, подскажите хоть где искать ошибку.

> где искать ошибку

Судя по нарисованной тобой картине - где угодно в каком угодно коде, который получает управление в результате жмаканья BitBtn.

А уж что ты там нахреновЕртил в этом коде - то нам то неведомо.

> Fynjy (05.09.2008 16:36:28) [28]

Уже подсказали - тут программист нужен.

← →
Fynjy (2008-09-05 16:56) [31]

Anatoly Podgoretsky © я бы тебе Р Ы Л О бы начистил, за твой юмор, ты сюда поржать заходишь? Ты ничего умного ни сказал еще, а уже пальцы гнешь. Ты небось у себя на работе как мышь, сдесь самоутверждаешься?

> Fynjy (05.09.08 16:56) [31]

тебе решение нужно или засранство показать ?

Изволь ответить на [29]

процедура после FormShow Найти похожие ветки