Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.01.2008, 14:52   #11
ben95
Новичок
Джуниор
 
Аватар для ben95
 
Регистрация: 22.12.2007
Сообщений: 204
По умолчанию

это флуд админ ! модераторы удалите флуд!
ben95 вне форума Ответить с цитированием
Старый 05.01.2008, 14:59   #12
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Цитата:
Сообщение от masterprog Посмотреть сообщение
Вопрос: Как при нажатии на кнопку 'Стрелка вниз' заставить Shape двигаться всё время (безостановочно) вниз?
http://programmersforum.ru/forumdisplay.php?f=33


ИМХО
Если начать расказывать про свойства Caption, PasswordChar и т.д., то получится что мы перепишем очередную книгу.
опятьже рассказывать про существование компанента на вкладке Win32 неимеет смысла.
И обсуждать код из одной строки тоже глупо : \

ИМХО "ФАК" нужно делать так:
1. Пишишь исходник\модуль и т.д.... например управление компом (включить, выключить и т.д.).
2. Хорошо КОМЕНТИРУЕШЬ в самом сырце.
3. Делаешь небольшое(но понятное) пояснение что ты там сделал и для чего оно надо.
4. Выкладываешь.

ИМХО офф
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 05.01.2008, 15:05   #13
Vedrus
ИСККОНный хакер
Форумчанин
 
Аватар для Vedrus
 
Регистрация: 08.11.2007
Сообщений: 195
По умолчанию

8)Вопрос: Можно ли прокачивать свой ник, оставляя заведомо бесполезные сообщения?

Ответ: На форму помещаем 1 button,в caption пишем, "Можно ли прокачивать свой ник, оставляя заведомо бесполезные сообщения?". Так теперь переходим в листинг удаляем всё что в нём есть и пишем:

Код:
interface      
     
uses      
  Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,      
  Dialogs, StdCtrls, ExtCtrls;      
     
     
type      
  TForm1 = class(TForm)      
    Button1: TButton;      
    procedure Button1Click(Sender: TObject);      
  private      
    { Private declarations }      
  public      
    { Public declarations }      
  end;      
     
var      
  Form1: TForm1;      
     
implementation      
     
{$R *.dfm}      
     
procedure TForm1.Button1Click(Sender: TObject);      
begin      
MessageBox("Можно, но модераторов это не очень обрадует")   
end;      
     
end.
PS. Не суть важно, что говорит компилятор. Синтаксические ошибки исправить не сложно. Главное суть, которая всем ясна.
#define QUESTION bb || !bb
Vedrus вне форума Ответить с цитированием
Старый 05.01.2008, 15:22   #14
Jeni
Форумчанин
 
Регистрация: 31.05.2007
Сообщений: 486
По умолчанию

Цитата:
Сообщение от masterprog Посмотреть сообщение
Вопрос: Как при нажатии на кнопку 'Стрелка вниз' заставить Shape двигаться всё время (безостановочно) вниз?
Создать таймер, установить Enabled равным False, в обработчике записать алгоритм движения Shape.
У формы создать обработчик OnKeyDown, там записать запуск таймера по нажатию кнопки. Например, if Key = vk_Down then Timer1.Enabled := True;
Желательно у формы установить свойство KeyPreview равным True.
Jeni вне форума Ответить с цитированием
Старый 06.01.2008, 22:15   #15
pelsh
Пользователь
 
Регистрация: 20.12.2007
Сообщений: 12
По умолчанию

Random и Randomize что они означают?
pelsh вне форума Ответить с цитированием
Старый 06.01.2008, 22:30   #16
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Цитата:
Сообщение от pelsh Посмотреть сообщение
Random и Randomize что они означают?
Результатом Random(x) будет случайное число от Х-1;

Если писать просто Random без Randomize, то после каждого перезапуска проги будет браться случайные числа, но одни и те же т.е.
первый запуск 0,2,1;
второй запуск 0,2,1 и т.д.
а если писать с Randomize, то каждый запуск программы функция Random будет брать псевдослучайное число относительно времени на ПК т.к. оно потоянно меняется и следовательно числа будут разные.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 06.01.2008, 22:35   #17
Mitron
Форумчанин
 
Аватар для Mitron
 
Регистрация: 10.05.2007
Сообщений: 117
По умолчанию

Цитата:
Сообщение от pelsh Посмотреть сообщение
Random и Randomize что они означают?
Random
синтакси : function Random [(Диапазон :word)];
Если,параметр Диапазон не указан, то возвращает случайное число Х, которое удовлетворяет условию 0<=X<1.Если параметр диапазон указан, то функция возвращает случайное число типа word, удовлетворяющее условию 0<=X<диапазон.

Randomize

синтаксис : procedure Randomize;

Действие : инициализирует программный генератор случайных чисел.

PS:Перед первым обращением к функции Random необходимо с помощью процедуры Randomize инициализировать программный генератор случайных чисел.
Задачи на заказ

Блажен тот, кто ничего не знает: он не рискует быть не понятым.
Mitron вне форума Ответить с цитированием
Старый 07.01.2008, 13:26   #18
shepelin
Пользователь
 
Аватар для shepelin
 
Регистрация: 11.12.2007
Сообщений: 94
По умолчанию

мне кажется эта тема скоро умерт т.к. обсуждаются вопросы которые описаны в любой книге, и видимо адресованы тем кому лень лопатить литературу в поисках ответа, но ведь если тема разростеться станет лень искать среди множества страниц ответы

и как говорят в народе "вообщем то тот же хрен только в другой руке" :-)

если есть какие то хорошие статьи их можно например на блоге выложить
-Сколько будет 2х2=4?
-TRUE

Последний раз редактировалось shepelin; 07.01.2008 в 13:29.
shepelin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Закачать файл на сайт и принять ответ coadmin Работа с сетью в Delphi 4 22.08.2008 23:19
Ответ клиенту... prizrak1390 Работа с сетью в Delphi 8 22.05.2008 11:34
Ответ LeoN Общие вопросы Delphi 0 07.09.2007 20:02
g61 (вопрос/ответ) g61 Свободное общение 2 04.12.2006 10:05