![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мигающая панель, при передаче фокуса на Edit [D5, Win2k]
Hawk_Skywalker © (2002-05-30 15:02:00)Помогиту кто может !!!
Проблема такая : имеется Edit Panel и Timer нужно сделать
так чтобы при передаче фокуса Edit"у панель начала изменять свойъ
Visible с true на false и на оборот, вобщем мигать....
Как сделать ??? у меня неполучается ПОМОГИТЕ !!!!
VID (2002-05-30 17:48:00) [1]to song: ??? Так ведь в было написано: есть Panel, edit и timer. ну так timer для того, что бы мигало :) В принципе, вполне нормальная потребность, что бы что-то мигало, при focused какго-нить объекта. типа, что бы привлечь внимание и всё такое...
JC (2002-05-30 16:08:00) [2]Чем тебе предложение VID не нравится...
Без Timer"a можно и Sleep([пауза в милисекундах]) писать, только проверку на выход не забудь.
Cossys (2002-05-30 16:07:00) [3]Вон VID добавил, чем не устраивает - будет мигать :)
Hawk_Skywalker (2002-05-30 16:01:00) [4]Нет я чувствую меня не поняли!!!
Панель должна непросто исчезать при нажатии на Edit а мигать
с определенным интервалом(на то и таймер)
Есть идей сделать без таймера с удовольствием выслушаю ???
Song (2002-05-30 15:51:00) [5]2VID © (30.05.02 15:45)
При чём тут таймер? Свойство Enabled к исчезновению не приведёт.
VID (2002-05-30 15:45:00) [6]Procedure Edit1Enter(...);
begin
timer1.enabled:=true;
end;
procedure Edit1Exit(...);
begin
Timer1.enabled:=false;
end;
procedure Timer1Timer(...);
begin
Panel1.visible := not panel1.visible;
end;
Song (2002-05-30 15:26:00) [7]Procedure Edit1Enter(Sender:TObject);
Begin
With Panel1 Do Visible:=not Visible;
End;
Hawk_Skywalker (2002-05-30 15:22:00) [8]Edit находится не на панели а рядом с ней !!!
Cossys (2002-05-30 15:14:00) [9]Если не секрет - зачем, как Вы туда текст вводить будете?