Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.07.2008, 11:17   #21
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

The_Darkness, но этот код не будет действовать на WebBrowser. Попробуйте кинуть на Fоrm1 коомпонент WebBrowser, поводите мишкой и вы помете, что Fоrm1 думает, что находица в режиме ожидание и запустит Fоrm2.

серьезная задачка , но решение должно быть непримено. Подскажите, как сделать Fоrm1 взаимодействовал по событиям с WebBrowser?

Последний раз редактировалось Stilet; 22.07.2008 в 11:26.
beegl вне форума Ответить с цитированием
Старый 22.07.2008, 11:36   #22
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Что за проблема проверять в таймере координаты мышки, и если координаты не попадают на ту область где форма то делать чето...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.07.2008, 23:32   #23
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

Stilet, подскажи пожалуйста код, а то я так и не розобрался. Буду примного благодарен.
Вот, работает все, а с WebBrowse проблема
Вложения
Тип файла: rar скринсервер.rar (9.2 Кб, 7 просмотров)
beegl вне форума Ответить с цитированием
Старый 24.07.2008, 08:28   #24
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Вот лови примерчик определяющий в таймере находится ли курсор в пределах окна - формы Form1, не зависимо какие компоненты и контролы как на ней лежат:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var b:boolean;h:hwnd;
begin
  b:=false;
  h:=WindowFromPoint(Mouse.CursorPos);
  while not b and (h<>0) do begin
    if h=Form1.Handle then b:=true;
    h:=GetParent(h);
  end;
if b then caption:='a' else caption:='b';
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.07.2008, 09:53   #25
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

проделал работает, но попрежнему WebBrowser не реагирует. Вот засада!!! Извените, если надоел с этим WebBrowser.
Код:
.............
end;
if b then Timer2.Enabled := true else Timer2.Enabled := false;
end;
end.

Последний раз редактировалось beegl; 24.07.2008 в 12:40.
beegl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вопрос на засыпку по show columns smoke888 SQL, базы данных 5 17.09.2012 12:46
Нужно чтобы Form2 открывался по середине Form1 diznt Помощь студентам 1 31.08.2008 03:37
form.show в коде проекта Ozerich Общие вопросы Delphi 2 30.08.2008 22:05
Form2.sSkinManager1.Action := false; beegl Компоненты Delphi 2 17.06.2008 17:05
две формы Form1 и Form2 Михаил Юрьевич Общие вопросы Delphi 11 02.03.2008 19:38