Topic: Guys please help me with the reminder
Hi All,
I would really appreciate it if some one can reply my msg.
When I run the code all works well no errors but I don not get the pop up msg.
procedure frmCalibrations_OnShow (Sender: TObject; Action: string);
begin
Timer := TTimer.Create(frmCalibrations);
Timer.Interval := 60000;
Timer.OnTimer := @OnTimer;
OnTimer;
Timer.Enabled := true;
end;
procedure Form1_OnClose (Sender: string; Action: string);
begin
Timer.Free;
end;
procedure OnTimer;
var
sMessage: string = '';
begin
sMessage := SQLExecute('SELECT message FROM tblReminder WHERE DATE_FORMAT(datetime, ''%Y-%m-%d %H:%i:%S'') = DATE_FORMAT(''%Y-%m-%d %H:%i:%S'', NOW()) ');
if sMessage<>'' then
begin
ShowMessage(sMessage);
end;
end;