![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Что надо добавить. [D7]
otecmaldun © (2008-12-20 00:30:00)В требованиях программы требуется непрерывный вывод прямоугольников на новую форму как это сделать зациклить вывод на форму если не трудно накидайте плиз. И еще обьясните как пользоваться "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;
sniknik (2008-12-20 10:12:00) [1]автору, если вопрос еще актуален можешь продублировать, лучше с учетом пожеланий ответивших...
эту ветку закрываю из за спама в ней.
(2008-12-20 04:25:00) [2]Удалено модератором
(2008-12-20 03:43:00) [3]Удалено модератором
(2008-12-20 02:53:00) [4]Удалено модератором
(2008-12-20 02:47:00) [5]Удалено модератором
Германн (2008-12-20 01:06:00) [6]В добавок к [2]
1.
> В требованиях программы требуется непрерывный вывод прямоугольников
> на новую форму как это сделать зациклить вывод на форму
Скажи то же самое, но простыми словами.
2.
> И еще обьясните как пользоваться "procedure tform1.drawline.
> xxxxxx"
> Идет постоянно ошибка в этой строке.
В какой строке и какая ошибка?
(2008-12-20 00:49:00) [7]Удалено модератором
Anatoly Podgoretsky (2008-12-20 00:38:00) [8]> otecmaldun (20.12.2008 0:30:00) [0]
Освой begin end
(2008-12-20 00:34:00) [9]Удалено модератором
Примечание: spam