Выполнение двух процедур одной кнопкой

@LamaKING · Регистрация: 15.11.2012

Студворк — интернет-сервис помощи студентам

Есть код нажатия кнопки,выполняется функция.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
StrPage2,mess:string;
send:TstringList;
begin
 
mess := 'http://forum.wen.ru/?p=1&f=5&add=1';
send := TstringList.Create;
send.add('subject='+Edit1.Text);
send.add('body='+Edit2.Text) ;
send.add('snd2919675405=Добавить');
StrPage2 := idhttp1.Post(mess,send)
 
end;

Нужно чтобы после нажатия этой кнопки выполнялась функция

Delphi
1
2
3
4
procedure TForm2.Timer1Timer(Sender: TObject);
begin
 
end;

Как такое можно реализовать?

@ychelovek · 22.07.2013, 00:13

LamaKING, А зачем тогда такой код?))) Просто что бы слово Tmer появилось само?

@LamaKING · 22.07.2013, 01:08 **[ТС]**

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

LamaKING, А зачем тогда такой код?))) Просто что бы слово Tmer появилось само?

Я седня целый день не спал,на автомате делаю,туплю как трактор)

Добавлено через 51 минуту
Ребят,а как вывести отсчет до следующей операции?

и

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
StrPage2,mess:string;
send:TstringList;
begin
 
mess := 'http://forum.wen.ru/?p=1&f=5&add=1';
send := TstringList.Create;
send.add('subject='+Edit1.Text);
send.add('body='+Edit2.Text) ;
send.add('snd2919675405=Добавить');
StrPage2 := idhttp1.Post(mess,send) ;
 
Timer1.Enabled := True;
 
Timer1.Enabled:=false;
Timer1.Interval:=StrToInt(Edit3.Text);
Timer1.Enabled:=true;
 
ShowMessage('Поехали! :) Можешь свернуть в Трей.');
 
end;

После отправки сообщения,ожидания,будет снова отправляться?

@northener · 22.07.2013, 01:40

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

После отправки сообщения,ожидания,будет снова отправляться?

А этого вы не заказывали. Только таймер, который через 6 часов проснется и скажет что поспит ещё 6 часиков.

@LamaKING · 22.07.2013, 01:52 **[ТС]**

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

А этого вы не заказывали. Только таймер, который через 6 часов проснется и скажет что поспит ещё 6 часиков.

хмм.а как быть?

Добавлено через 4 минуты
А если вот так?)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    Timer1: TTimer;
    Label3: TLabel;
    Edit3: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
StrPage2,mess:string;
send:TstringList;
begin
Timer1.Enabled := True;
mess := 'http://forum.wen.ru/?p=1&f=5&add=1';
send := TstringList.Create;
send.add('subject='+Edit1.Text);
send.add('body='+Edit2.Text) ;
send.add('snd2919675405=Добавить');
StrPage2 := idhttp1.Post(mess,send) ;
 
 
 
Timer1.Enabled:=false;
Timer1.Interval:=StrToInt(Edit3.Text);
Timer1.Enabled:=true;
 
ShowMessage('Поехали! :) Можешь свернуть в трей.');
 
end;
 
 
 
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
 
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
ShowMessage('Текущий интервал: '+IntToStr(Self.Timer1.Interval)+' мс.');
end;
 
end.

Добавлено через 6 минут
кхм.попутал).если вот так))

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    Timer1: TTimer;
    Label3: TLabel;
    Edit3: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
StrPage2,mess:string;
send:TstringList;
begin
Timer1.Enabled := True;
mess := 'http://forum.wen.ru/?p=1&f=5&add=1';
send := TstringList.Create;
send.add('subject='+Edit1.Text);
send.add('body='+Edit2.Text) ;
send.add('snd2919675405=Добавить');
StrPage2 := idhttp1.Post(mess,send) ;
 
 
 
Timer1.Enabled:=false;
Timer1.Interval:=StrToInt(Edit3.Text);
Timer1.Enabled:=true;
 
ShowMessage('Поехали! :) Можешь свернуть в трей.');
 
end;
 
 
 
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
 
 
procedure TForm2.Timer1Timer(Sender: TObject);
var
StrPage2,mess:string;
send:TstringList;
 
begin
 
Timer1.Enabled := True;
mess := 'http://forum.wen.ru/?p=1&f=5&add=1';
send := TstringList.Create;
send.add('subject='+Edit1.Text);
send.add('body='+Edit2.Text) ;
send.add('snd2919675405=Добавить');
StrPage2 := idhttp1.Post(mess,send) ;
 
end;
 
end.

@northener · 22.07.2013, 01:57

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

хм.попутал).если вот так))

Так пойдет. Так то что вам нужно будет выполняться периодически в соответствии с интервалом таймера. Только не нужно всё время писать Timer1.Enabled := True; Если вы сами его не остановите Timer1.Enabled := False; он будет работать вечно.

@LamaKING · 22.07.2013, 02:09 **[ТС]**

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

Так пойдет. Так то что вам нужно будет выполняться периодически в соответствии с интервалом таймера. Только не нужно всё время писать Timer1.Enabled := True; Если вы сами его не остановите Timer1.Enabled := False; он будет работать вечно.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    Timer1: TTimer;
    Label3: TLabel;
    Edit3: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
 
 
Timer1.Enabled:=false;
Timer1.Interval:=StrToInt(Edit3.Text);
Timer1.Enabled:=true;
 
ShowMessage('Поехали! :) Можешь свернуть в трей.');
 
end;
 
 
 
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
 
 
procedure TForm2.Timer1Timer(Sender: TObject);
var
StrPage2,mess:string;
send:TstringList;
 
begin
 
mess := 'http://forum.wen.ru/?p=1&f=5&add=1';
send := TstringList.Create;
send.add('subject='+Edit1.Text);
send.add('body='+Edit2.Text) ;
Timer1.Interval:=StrToInt(Edit3.Text);
send.add('snd2919675405=Добавить');
StrPage2 := idhttp1.Post(mess,send) ;
 
 
end;
 
end.

А вот такое работать будет?)

@northener · 22.07.2013, 02:34

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

А вот такое работать будет?

Тоже будет. Но в отличие от предыдущего варианта первая посылка idhttp1.Post(mess,send) произойдет не сразу после нажатия SpeedButton1, а после истечения периода времени равного Timer1.Interval.
Только ещё одно маленькое замечание. Когда кидаешь на форму таймер, то его свойство Enabled по умолчанию True, т.е. таймер включен.

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@ychelovek 13 / 13 / 3 Регистрация: 31.03.2013 Сообщений: 287
	22.07.2013, 00:13
	LamaKING, А зачем тогда такой код?))) Просто что бы слово Tmer появилось само? 0