Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];

Вниз

Мигающая панель, при передаче фокуса на 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 а мигать
с определенным интервалом(на то и таймер)
Есть идей сделать без таймера с удовольствием выслушаю ???


 
Cossys   (2002-05-30 16:07) [7]

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


 
JC   (2002-05-30 16:08) [8]

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


 
VID   (2002-05-30 17:48) [9]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
1-30908
Alexey_
2002-05-17 17:38
2002.06.10
Как удалить директорию под Windows NT


1-30786
stainer
2002-05-31 01:23
2002.06.10
файловая система через меню


1-30859
Erlan
2002-05-29 15:20
2002.06.10
Насчет Bitmap


14-30998
Alchem
2002-05-04 19:33
2002.06.10
SoftIce 4.0.5


4-31042
anaxemon
2002-04-08 08:21
2002.06.10
консольный режим





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский