[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 662 из 677

662

Опции темы

Поиск в этой теме

Опции просмотра

#6611

26.05.2010, 20:59

RexTiam

Постоянный

Регистрация: 02.11.2009

Сообщений: 341

С нами: 8696259

Репутация: 65

Ага всем спасибо большое) что-то я затупил с изучением поскаля)
Первая моя задача по паскалю закончилась)

Вдруг кому нужно будет

Цитата:

program chetnie; var i,s:integer; begin s:=1; for i:=1 to 10 do begin if i mod 2 = 0 then s:=s*i; end; writeln('Произведение первых 5-ти ЧЁТНЫХ чисел равно ',s); end.

#6612

27.05.2010, 00:33

cel

Познающий

Регистрация: 11.11.2008

Сообщений: 72

С нами: 9208607

Репутация: 0

как в Edit можно засунуть кнопку или картинку типа как в WebMoney??

#6613

27.05.2010, 17:03

heretic1990

Постоянный

Регистрация: 02.07.2008

Сообщений: 472

С нами: 9399011

Репутация: 444

Цитата:

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

как в Edit можно засунуть кнопку или картинку типа как в WebMoney??

это где у них такое?

#6614

27.05.2010, 17:03

Chrome~

Постоянный

Регистрация: 13.12.2008

Сообщений: 354

С нами: 9162683

Репутация: 175

Цитата:

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

как в Edit можно засунуть кнопку или картинку типа как в WebMoney??

Код:

  Image.Parent := Edit;
  Image.Left := 0;
  Image.Top := 0;

#6615

28.05.2010, 00:04

miako

Познающий

Регистрация: 20.01.2010

Сообщений: 43

С нами: 8582520

Репутация: 6

Цитата:

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

неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.

Что у тебя там не получилось? Кинь код, у меня все работает.

#6616

28.05.2010, 01:16

090808

Познающий

Регистрация: 15.03.2009

Сообщений: 87

С нами: 9030319

Репутация: 34

Цитата:

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

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.tag:=Timer1.tag+1;
Form1.caption:=IntToStr(Timer1.tag);
end;

#6617

28.05.2010, 01:41

miako

Познающий

Регистрация: 20.01.2010

Сообщений: 43

С нами: 8582520

Репутация: 6

Мсье знает толк в извращениях

#6618

29.05.2010, 16:53

heretic1990

Постоянный

Регистрация: 02.07.2008

Сообщений: 472

С нами: 9399011

Репутация: 444

090808, большое спасибо! то что надо!

#6619

30.05.2010, 15:39

Ponchik

Постоянный

Регистрация: 30.08.2005

Сообщений: 730

С нами: 10892546

Репутация: 2274

Delphi
Как называется такая штука и как её сделать

Я думал "Всплывающая подсказка" но нет

#6620

30.05.2010, 16:00

heretic1990

Постоянный

Регистрация: 02.07.2008

Сообщений: 472

С нами: 9399011

Репутация: 444

с помощью CoolTrayIcon можно наподобие этого сделать.

Страница 662 из 677

662

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	Вчера 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)

Быстрый переход