Главная страница
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.053 c
11-1059477443
avakss
2003-07-29 15:17
2004.04.04
KOL+отключить показ программы в CTRL+ALT+DEL


14-1078773542
Gero
2004-03-08 22:19
2004.04.04
Бот для форума


9-1063816318
witalick
2003-09-17 20:31
2004.04.04
Игра на Delphi/Flash


1-1079422216
stelius
2004-03-16 10:30
2004.04.04
Case & not


14-1079074549
Rentgen
2004-03-12 09:55
2004.04.04
(2*Pi*R*R)/Z*R...