|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.08.2012, 11:01 | #1 | |
instagram
Участник клуба
Регистрация: 24.05.2008
Сообщений: 1,451
|
запуск программы, окно было возле трея
Доброго времени суток! Подскажи, как с помощью этой фкнкции:
Цитата:
|
|
14.08.2012, 11:10 | #2 |
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
Типа в углу экрана или в самом трее?
|
14.08.2012, 11:13 | #3 |
instagram
Участник клуба
Регистрация: 24.05.2008
Сообщений: 1,451
|
в углу экрана:
|
14.08.2012, 11:17 | #4 |
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
Код:
Последний раз редактировалось Stilet; 14.08.2012 в 11:26. |
14.08.2012, 11:18 | #5 |
Форумчанин
Регистрация: 02.08.2008
Сообщений: 213
|
Можно так
Код:
|
14.08.2012, 11:29 | #6 |
instagram
Участник клуба
Регистрация: 24.05.2008
Сообщений: 1,451
|
dolphin705, DelhiProgramer спасибо, вот что получилось)
|
14.08.2012, 12:00 | #7 |
instagram
Участник клуба
Регистрация: 24.05.2008
Сообщений: 1,451
|
а как такое реализовать?
вот пример, ....... а как укротить код, или есть такой компонент? |
14.08.2012, 12:15 | #8 |
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
Написал криво и не помню как определить что мышка вне окна
var Form1: TForm1; b: boolean; l: TPoint; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin b:=true; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if b=true then timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if form1.Left<=screen.Width-form1.Width then exit; form1.Left:=form1.Left-10; if form1.Left=screen.Width-form1.Width then begin timer1.Enabled:=false; b:=false; end; end; procedure TForm1.Timer2Timer(Sender: TObject); begin getcursorpos(l); if {определить что мышка не на форме} then begin timer1.Enabled:=false; b:=true; end; end; procedure TForm1.Timer3Timer(Sender: TObject); begin if (b=true) and (form1.Left<screen.width-80) then form1.Left:=form1.Left+10; end; |
14.08.2012, 12:44 | #9 | |
instagram
Участник клуба
Регистрация: 24.05.2008
Сообщений: 1,451
|
Цитата:
|
|
14.08.2012, 12:50 | #10 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
а ваши варианты где? Вы только чужой код берете.
Далее с библой BilleniumEffects все получится. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как расположить дочернее окно поверх родительского, но так, чтобы можно было работать с родительским окном? | ivan.tiran | Общие вопросы Delphi | 2 | 17.05.2012 23:46 |
редактируемое окно что бы можно было менять текст | Николай_Kolumb | Помощь студентам | 5 | 25.04.2012 18:00 |
Чтоыб окно другой программы было поверх остальных | kakawkin | Общие вопросы Delphi | 2 | 08.10.2009 19:45 |
Как сделать так чтобы окно формы всегда было поверх остальных окон? | HelloZAPOR | Общие вопросы Delphi | 5 | 23.07.2007 08:05 |
Эти программы полезно было бы написать | Asain-Asa | Софт | 3 | 05.12.2006 22:21 |