Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];

Вниз

Что надо добавить.   Найти похожие ветки 

 
otecmaldun   (2008-12-20 00:30) [0]

В требованиях программы требуется непрерывный вывод прямоугольников на новую форму как это сделать зациклить вывод на форму если не трудно накидайте плиз. И еще обьясните как пользоваться "procedure tform1.drawline.xxxxxx"
Идет постоянно ошибка в этой строке. Вот мой код
procedure TForm1.Button1Click(Sender: TObject);
var
f2:Tform;
x1,x2,y1,y2:integer;
t:tdatetime;
begin
t:=now();
   beep;
   randomize;
   f2:=tform.Create(application);
   f2.Show();
   for x1:=1 to 200  do
 x2:=random(100);
 y1:=random(100);
 y2:=random(100);
 timer1.Enabled:=true;
 timer1.Interval:=1000;


 
имя   (2008-12-20 00:34) [1]

Удалено модератором
Примечание: spam


 
Anatoly Podgoretsky ©   (2008-12-20 00:38) [2]

> otecmaldun  (20.12.2008 0:30:00)  [0]

Освой begin end


 
имя   (2008-12-20 00:49) [3]

Удалено модератором


 
Германн ©   (2008-12-20 01:06) [4]

В добавок к [2]
1.
> В требованиях программы требуется непрерывный вывод прямоугольников
> на новую форму как это сделать зациклить вывод на форму

Скажи то же самое, но простыми словами.
2.
> И еще обьясните как пользоваться "procedure tform1.drawline.
> xxxxxx"
> Идет постоянно ошибка в этой строке.

В какой строке и какая ошибка?


 
имя   (2008-12-20 02:47) [5]

Удалено модератором


 
имя   (2008-12-20 02:53) [6]

Удалено модератором


 
имя   (2008-12-20 03:43) [7]

Удалено модератором


 
имя   (2008-12-20 04:25) [8]

Удалено модератором


 
sniknik ©   (2008-12-20 10:12) [9]

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.018 c
2-1229338760
Андрей Куделя
2008-12-15 13:59
2009.02.01
Excel


2-1229527656
Tatb9na
2008-12-17 18:27
2009.02.01
Графики


15-1228477841
Артур Пирожков
2008-12-05 14:50
2009.02.01
Если нет Офиса, а нужно открыть Аксесовский файл?


2-1229508260
Alex_C
2008-12-17 13:04
2009.02.01
Не пропадает Hint


2-1229794173
pashokq
2008-12-20 20:29
2009.02.01
Из Integer в Byte





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский