Показать сообщение отдельно
  #6  
Старый 27.10.2006, 13:48
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Не, таких ошибок я не допускаю уже (раньше мог).
Дело в том, что эта кнопка находится в ActiveX компоненте (TShockwaveFlash).

Опишу: Есть, допустим, пустая форма (без бордера), на нее располагаем два элемента управления: Button1(TButton) и Flash(TShockwaveFlash).

Флэшка - это две кнопки: свернуть и закрыть.
Сделана в Macromedia Flash'е.
Там на нажатия этих кнопок такие коды:

для свернуть:

...
fscommand('appmini')
...

для закрыть:

...
fscommand('appexit')
...

Код для события OnShow для формы:

Flash.Movie := MainForm.sAppPath + 'Data\buttons.swf';

Код для собыия OnClick для Button1:

Application.Minimize

Код события fscommand для Flash:

procedure TMain.FlashFSCommand(ASender: TObject; const command, args: WideString);
begin
if command = 'appmini' then
begin
Application.Minimize;
ShowMesage(command);
//MinTimer.Enabled := True;
end
else if command = 'appexit' then
Close;
end;

Так вот, при нажатии на Button1, окно сворачивается.
При нажатии на кнопку закрыть из флэшки окно закрывается
При нажатии на кнопку свернутьиз флэшки, показывается пустое сообщение ибольше ничего не происходит (а ведь форма должна была свернуться!)

Вощем пока решил проблему, как и описывал раньше, хоть и криво, но, главное, работает =)

Еще раз спасибо, Decoding за проявленное участие и интерес.

PS
Так что с репутацией?
Она работает или нет? Или это только у меня она не работает?
Попробовал снова добавить отзыв для Decoding, но
"Вы должны добавить отзыв кому-то еще, прежде чем сможете снова добавить ее Decoding."
Сорри за оффтоп.
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием