Автоматизация создания событий + время выполнения событий

@andrew489 · Регистрация: 16.10.2013

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

Подскажите, имею 9 button как автоматически с помощью цикла прописать выполнения события для всех этих кнопок. И ещё вопрос как понять за какое время выполнится событие, точнее хочу чтобы при нажатии показывало showmessage в котором мили секунды

@krapotkin · 20.06.2016, 05:39

1. не надо выполнять события для кнопок, нужно выполнять некие процедуры, которые выполняются ТАКЖЕ И ПО НАЖАТИЮ КНОПКИ. При этом, есть кнопки или нет, не имеет никакого значения.

2. При чем тут цикл?

3.

Delphi

procedure TFrom1.b1Click(...);
var t:int64;
begin
  t:=GetTickCount();
  DoSomething1();
  showMessage(' Время выполнения '+intToStr(GetTickCount()-t)+' мсек');
end;

4. Даже не очень большие мальчики знают разницу между милями, секундами и миллисекундами...

@andrew489 0 / 0 / 0 Регистрация: 16.10.2013 Сообщений: 17
		1
	Автоматизация создания событий + время выполнения событий 20.06.2016, 03:27. Показов 1248. Ответов 1 Метки нет (Все метки) Подскажите, имею 9 button как автоматически с помощью цикла прописать выполнения события для всех этих кнопок. И ещё вопрос как понять за какое время выполнится событие, точнее хочу чтобы при нажатии показывало showmessage в котором мили секунды 0

	20.06.2016, 05:39

Автоматизация создания событий + время выполнения событий

Решение