Повторное сообщение.

[Fahman]

Всем хай, есть мемо там есть время
15:00
16:00
17:00

Как то так там так вот есть еще функция...

procedure TForm1.Timer2Timer(Sender: TObject);
var i:integer;
begin
 i:=Memo2.Lines.IndexOf(FormatDateTime('hh:nn',time));
 if i<>-1 then begin
        ShowMessage('бла бла бла .');
        
 end;
end;

как время сходится с системным временем то выходит сообщение НЕ 1 РАЗ а их много считай целую минуту выводит сообщение потом я думал сделать так...

procedure TForm1.Timer2Timer(Sender: TObject);
var i:integer;
begin
 i:=Memo2.Lines.IndexOf(FormatDateTime('hh:nn',time));
 if i<>-1 then begin
        ShowMessage('бла бла бла .');
        Timer2.Enabled:=False;
        Timer3.Enabled:=True;
 end;
end;

то есть после вывода сообщения чтоб 1 раз вывел и отключился таймер а второй таймер интервал 55 сек. Он сам потом включает таймер... но все же проблема не ушла.... Что еще можно сделать?

[Xo66um]

Выставь глобальную переменную, например:

var
 MsgShowed: Boolean = False;

И в таймере:

if not MsgShowed then
 begin
  MsgShowed := True;
  //показываем сообщение
 end;

UPD:
А то у тебя в таймере стоит локальная переменная, которая изменяется при каждом срабатывании таймера, поэтому и сообщения выводятся без конца.

P.S.
Используя пример в моем сообщении, можно обойтись одним таймером.

[Fahman]

Сообщение от Xo66um

Выставь глобальную переменную, например:

var
 MsgShowed: Boolean = False;

И в таймере:

if not MsgShowed then
 begin
  MsgShowed := True;
  //показываем сообщение
 end;

UPD:
А то у тебя в таймере стоит локальная переменная, которая изменяется при каждом срабатывании таймера, поэтому и сообщения выводятся без конца.

P.S.
Используя пример в моем сообщении, можно обойтись одним таймером.

Спасибо, есть еще вопрос....
Могу ли я такой глобальной переменной по сравнить загрузку страницы в chrome?
ну например кнопка есть и браузер 1

Button.click;
begin
chromium1.load('www.programmersforum.ru');
end;

и сделать если страница уже загружена то не загружать ее, а если нет то загрузить?

procedure TForm1.Chromium1BeforeBrowse(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; navType: TCefHandlerNavtype;
  isRedirect: Boolean; out Result: Boolean);
begin
     if not chrload then
 begin
  chrload := True;
        Chromium1.Load(Edit1.Text);
 end;
end;

[Xo66um]

Да, это универсальный способ.

[Fahman]

Сообщение от Xo66um

Да, это универсальный способ.

респект=) ото не знал как решить)

[Stilet]

А я бы лучше прошелся циклом по всем компонентам хрома и проверил у кого какой путь к сайту, и если бы нашел тот что нужно загружать - переключился на него вместо загрузки по новой.

[Fahman]

Сообщение от Stilet

А я бы лучше прошелся циклом по всем компонентам хрома и проверил у кого какой путь к сайту, и если бы нашел тот что нужно загружать - переключился на него вместо загрузки по новой.

Ну так пройдитесь епти) покажите) мне только интересно будет)
P.S. Я не жду готовых исходников просто по смотрел бы как пример)

[Stilet]

Ну так пройдитесь

Это что мне нужно?
Хочешь чтоб я ради неизвестно чего закакал свою систему каким-то непонятным компонентом, который и за компонент нормальный не считаю?

[Fahman]

Сообщение от Stilet

Это что мне нужно?
Хочешь чтоб я ради неизвестно чего закакал свою систему каким-то непонятным компонентом, который и за компонент нормальный не считаю?

вы о чем? ща?

[Stilet]

вы о чем? ща?

Вот о чем:
1) У меня нет желания ставить себе хромиум. Никакого.
2) Ты как с ним работаешь? Покажи. Создаешь динамически? Отлично. Записывай то что создано в переменку типа TObjectList, потом по ней проходись и выясняй данные.
3) Если компонент хрома у тебя один единственный то найди в нем свойство, отвечающее за адрес запрошенной страницы. Его и проверяй.
К чему лишние переменные? Это хорошо еще если компонент один, а что делать когда их будет сотня? Сто глобалок создавать?