Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Вниз
Как сделать мигающтй текст Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c
