Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Как сделать мигающтй текст   Найти похожие ветки 

 
Berezne   (2004-03-12 09:43) [0]

Нужно забацать предупреждение об удалении записи в БД. И в форме, которая будет виводить текст етого предупредительного сообщения оно должно мигать.

Спасиба всем за ответи.


 
Vlad ©   (2004-03-12 09:47) [1]


> Berezne   (12.03.04 09:43)  

Есть компонент TTimer.
У текста (TLabel например) есть свойство Visible


 
ЫЗШКШЕ   (2004-03-12 09:47) [2]

Удалено модератором


 
Vlad ©   (2004-03-12 09:49) [3]


> ЫЗШКШЕ   (12.03.04 09:47) [2]

А если так, то можно и без мата.
label1.visible:=not label1.visible;


 
ЫЗШКШЕ   (2004-03-12 09:52) [4]


> Vlad ©   (12.03.04 09:49) [3]

и без романтики ...


 
Rem ©   (2004-03-12 10:02) [5]

type
 TSplashLabel = class(TLabel)
 private
   m_Timer: TTimer;
   procedure DoOnTimer(Sender: TObject);
   procedure SetInterval(a_iInterval: integer);
   function GetInterval: integer;
   procedure SetActive(a_bActive: boolean);
   function GetActive: boolean;
 public
   constructor Create(a_Owner: TComponent); override;
 published  
   property Interval: integer read GetInterval write SetInterval;
   property Active: boolean read GetActive write SetActive;
 end;

implementation

constructor TSplashLabel.Create(a_Owner: TComponent);
begin
 inherited Create(a_Owner);
 m_Timer := TTimer.Create(Self);
 m_Timer.OnTimer := DoOnTimer;
end;

procedure TSplashLabel.SetInterval(a_iInterval: integer);
begin
 m_Timer.Interval := a_iInterval;
end;

function TSplashLabel.GetInterval: integer;
begin
 Result := m_Timer.Interval;
end;

procedure TSplashLabel.SetActive(a_bActive: boolean);
begin
 m_Timer.Enabled := a_bActive;
end;

function TSplashLabel.GetActive: boolean;
begin
 Result := m_Timer.Enabled;
end;

procedure TSplashLabel.DoOnTimer(Sender: TObject);
begin
 Visible := not Visible;
end;


:)



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

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
4-1075467162
wolf01
2004-01-30 15:52
2004.04.04
Как извлечь иконку из Shell32 по номеру?


1-1079341445
Max75
2004-03-15 12:04
2004.04.04
Создание компонента на форме во время выполнения программы


14-1077511275
Тумар
2004-02-23 07:41
2004.04.04
Как вас поздравили с 23 февраля?


1-1079281916
volser
2004-03-14 19:31
2004.04.04
Шрифты в форточках


1-1079592884
sav
2004-03-18 09:54
2004.04.04
Процессы и потоки