Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > timer.free problem

Автор: muratboy31 16.1.2010, 18:44

i want to stop timer operation if there is no number in sedit2 but i am having problem with it !!!

Код


procedure TForm1.Timer2Timer(Sender: TObject);
var
Refresh: integer;
begin
if (sedit2.text=' ') then  begin
Timer2.Free;
ShowMessage('Enter Time');
end else begin
Refresh := StrToInt(sEdit2.text)*1000;
end;
end;

thanks in advance

Автор: bems 16.1.2010, 18:51

Your problem is what you freed object from it's method/event handler
Please read the manual before you ask people.