|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.09.2007, 12:19 | #1 |
python developer
Пользователь Подтвердите свой е-майл
Регистрация: 30.11.2006
Сообщений: 81
|
возобновить появление формы
Товарищи программисты подскажите как реализовать такую задачу - имеется форма - при старте приложения форма появляется - ее нельзя двигать и она имеет определенную позицию на экране - далее если курсор мышки вышел за пределы формы - форма скрывается - теперь сам вопрос - как сделать так чтобы при попадании курсора мышки на ту площадь занимаемую еще видимой формой форма появлялась? Приветствуются любые ответы.
Заранее спасибо.
Границы расширяет тот, кто выходит за них.
|
14.09.2007, 13:24 | #2 | |||
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Цитата:
Цитата:
Цитата:
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
|||
17.09.2007, 11:44 | #3 |
python developer
Пользователь Подтвердите свой е-майл
Регистрация: 30.11.2006
Сообщений: 81
|
Код:
Границы расширяет тот, кто выходит за них.
|
17.09.2007, 12:11 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Strannik, А може тебе подойдет вот такой способ?:
т.е. пока ты водиш мышкой в пределах формы форма на месте, как только мыша вышла за пределы, форма исчезла, как только мыша появилась на том месте где была форма, форма появилась: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin AlphaBlend:=true; AlphaBlendValue:=250; end; procedure TForm1.Timer1Timer(Sender: TObject); var tp:TPoint; begin tp:=ScreenToClient(Mouse.CursorPos) ; if (tp.X<0)or(tp.X>Width)or(tp.Y<-15)or(tp.Y>Height) then begin AlphaBlendValue:=0; end else AlphaBlendValue:=250 end; end. Я угадал?
I'm learning to live...
|
18.09.2007, 05:51 | #5 |
python developer
Пользователь Подтвердите свой е-майл
Регистрация: 30.11.2006
Сообщений: 81
|
Stilet ты угадал. Спасибо огромное! С помощью твоего кода переделал свой - вот что получилось:
... Код:
Границы расширяет тот, кто выходит за них.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Плавное появление формы | HAMMAN | Общие вопросы Delphi | 3 | 15.05.2008 14:20 |
Появление процесса | student_63 | Win Api | 16 | 23.04.2008 19:40 |
Появление формы. | Kukkk | Общие вопросы Delphi | 17 | 13.09.2007 20:23 |
Появление подсказки | Римма | Общие вопросы Delphi | 6 | 20.08.2007 12:22 |