Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
26.05.2010, 20:59
|
|
Постоянный
Регистрация: 02.11.2009
Сообщений: 341
Провел на форуме:
599124
Репутация:
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.
|
|
|
27.05.2010, 00:33
|
|
Познающий
Регистрация: 11.11.2008
Сообщений: 72
Провел на форуме:
763861
Репутация:
0
|
|
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
|
|
|
|
27.05.2010, 17:03
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
Сообщение от cel
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
это где у них такое?
|
|
|
|
27.05.2010, 17:03
|
|
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641
Репутация:
175
|
|
Сообщение от cel
как в Edit можно засунуть кнопку или картинку типа как в WebMoney??
Код:
Image.Parent := Edit;
Image.Left := 0;
Image.Top := 0;
|
|
|
|
28.05.2010, 00:04
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
Сообщение от heretic1990
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
Что у тебя там не получилось? Кинь код, у меня все работает.
|
|
|
|
28.05.2010, 01:16
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829
Репутация:
34
|
|
Сообщение от heretic1990
неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.tag:=Timer1.tag+1;
Form1.caption:=IntToStr(Timer1.tag);
end;
|
|
|
|
28.05.2010, 01:41
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357
Репутация:
6
|
|
Мсье знает толк в извращениях  |
|
|
|
29.05.2010, 16:53
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
090808, большое спасибо! то что надо!
|
|
|
|
30.05.2010, 15:39
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
Delphi
Как называется такая штука и как её сделать
Я думал "Всплывающая подсказка" но нет  |
|
|
|
30.05.2010, 16:00
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
с помощью CoolTrayIcon можно наподобие этого сделать.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
