Выполнение двух действий на одной кнопке

@Александр9797 · Регистрация: 17.11.2015

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

Можно ли сделать выполнение с начало одной команды, а потом второй на одной кнопке.

Добавлено через 2 минуты
Т.е. я добавляю новую запись и нажимаю на кнопку сохранить и что бы она сначала сохранила, а потом выполнило 2 мое условие только после сохранения.

@TFullControl · 26.04.2017, 22:56

Да. Обработчик клика кнопок не ограничен количеством действий.

@Александр9797 · 26.04.2017, 23:51 **[ТС]**

Да Я понимаю что он неограничен. Как сделать вот это:

Сообщение от Александр9797

Т.е. я добавляю новую запись и нажимаю на кнопку сохранить и что бы она сначала сохранила, а потом выполнило 2 мое условие только после сохранения.

Через условие или как?

@northener · 27.04.2017, 01:26

Сообщение от Александр9797

Т.е. я добавляю новую запись и нажимаю на кнопку сохранить и что бы она сначала сохранила, а потом выполнило 2 мое условие только после сохранения.

Уточните. Вы хотите чтобы два действия выполнились после одного нажатия на кнопку или после двух последовательных нажатий на неё?

@Александр9797 · 27.04.2017, 01:53 **[ТС]**

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
procedure TForm_bil_dob.Button1Click(Sender: TObject);
Var help1,help2:string;
begin
if DM.ADOQuery_bil.State = dsBrowse then DM.ADOQuery_bil.Edit;
if DM.ADOQuery_bil.CanModify  then
DM.ADOQuery_bil.Fields[7].AsDateTime :=  DateTimePicker1.Date;
 
if DM.ADOQuery_bil.State = dsBrowse then DM.ADOQuery_bil.Edit;
if DM.ADOQuery_bil.CanModify  then
DM.ADOQuery_bil.Fields[8].AsDateTime :=  DateTimePicker2.Date;
 
DM.ADOQuery_bil.Post
end;
begin
help1:=''+Form_bil_dob.DBEdit3.Text;
help2:=QuotedStr(help1);
with DM.ADOQuery_bil do
begin
Close;
SQL.Clear;
SQL.Text := 'select * from БилетыЗапрос where НомерБилета like' + help2;
Open;
end;
Form_bil_dob.Visible:=false;
Form_otcht_bil.Show;
end;

Добавлено через 47 секунд
После одного. Вот не выходи ошибки одни(

Добавлено через 13 минут

Нашел касяк ; нет:

Сообщение от Александр9797

DM.ADOQuery_bil.Post

@TFullControl · 27.04.2017, 10:17

Думается косяк не только в этом, вы закрываете обработчик события клика кнопки в 13 строке, после чего сразу идет begin, к какому обработчик он по вашему относится?

DenNik · 27.04.2017, 12:42

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure Action1;
begin
 
end;
 
procedure Action2;
begin
 
end;
 
procedure ButtonClick();
begin
  Action1;
  if {какое-то условие} then
  Action2;
end;

какие проблемы вообще?

@Александр9797 · 27.04.2017, 14:16 **[ТС]**

Спасибо, проблемы уже решил)

@cfbogd · 27.04.2017, 14:20

Сообщение от Александр9797

Нашел касяк ; нет:

да касяка и нету, перед end точку с запятой можно не ставить

@Александр9797 · 27.04.2017, 16:28 **[ТС]**

Да ребят спасибо я разобрался. Убрал я перед end точку с запятой. Бывает такое, в тупил))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395

	Выполнение двух действий на одной кнопке 26.04.2017, 22:06. Показов 5183. Ответов 9 Метки нет (Все метки) Можно ли сделать выполнение с начало одной команды, а потом второй на одной кнопке. Добавлено через 2 минуты Т.е. я добавляю новую запись и нажимаю на кнопку сохранить и что бы она сначала сохранила, а потом выполнило 2 мое условие только после сохранения. 0

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	26.04.2017, 22:56
	Да. Обработчик клика кнопок не ограничен количеством действий. 1

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	27.04.2017, 10:17
	Думается косяк не только в этом, вы закрываете обработчик события клика кнопки в 13 строке, после чего сразу идет begin, к какому обработчик он по вашему относится? 1

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
	27.04.2017, 14:16 [ТС]
	Спасибо, проблемы уже решил) 0

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
	27.04.2017, 16:28 [ТС]
	Да ребят спасибо я разобрался. Убрал я перед end точку с запятой. Бывает такое, в тупил)) 0

Выполнение двух действий на одной кнопке

Решение