Мигающая панель, при передаче фокуса на Edit

← →
Hawk_Skywalker © (2002-05-30 15:02) [0]

Помогиту кто может !!!
Проблема такая : имеется Edit Panel и Timer нужно сделать
так чтобы при передаче фокуса Edit"у панель начала изменять свойъ
Visible с true на false и на оборот, вобщем мигать....
Как сделать ??? у меня неполучается ПОМОГИТЕ !!!!

← →
Cossys © (2002-05-30 15:14) [1]

Если не секрет - зачем, как Вы туда текст вводить будете?

← →
Hawk_Skywalker © (2002-05-30 15:22) [2]

Edit находится не на панели а рядом с ней !!!

← →
Song © (2002-05-30 15:26) [3]

Procedure Edit1Enter(Sender:TObject);
Begin
With Panel1 Do Visible:=not Visible;
End;

← →
VID © (2002-05-30 15:45) [4]

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:51) [5]

2VID © (30.05.02 15:45)
При чём тут таймер? Свойство Enabled к исчезновению не приведёт.

← →
Hawk_Skywalker © (2002-05-30 16:01) [6]

Нет я чувствую меня не поняли!!!
Панель должна непросто исчезать при нажатии на Edit а мигать
с определенным интервалом(на то и таймер)
Есть идей сделать без таймера с удовольствием выслушаю ???

Вон VID добавил, чем не устраивает - будет мигать :)

Чем тебе предложение VID не нравится...
Без Timer"a можно и Sleep([пауза в милисекундах]) писать, только проверку на выход не забудь.

to song: ??? Так ведь в было написано: есть Panel, edit и timer. ну так timer для того, что бы мигало :) В принципе, вполне нормальная потребность, что бы что-то мигало, при focused какго-нить объекта. типа, что бы привлечь внимание и всё такое...

Мигающая панель, при передаче фокуса на Edit Найти похожие ветки