Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c