Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

создание некоторого числа объектов на форме в нужных координатах [D7, WinXP]

Leon161 © (2008-04-04 15:43:00)
подскажи плиз, нужно в делфях сделать так, чтобы при процедуре FormCreate создавалось некоторое количество объектов на ней в нужных координатах...

Leonid Troyanovsky (2008-04-04 23:33:00) [1]

> Leon161 (04.04.08 19:32) [8]

> Стыдно самому стало, когда ответ увидел :) Сутки без сна
> за компом дают о себе знать :)

Т.е., можешь представить, как мы тут сутками без сна
тут отвечаем на.

--
Regards, LVT.

Leon161 (2008-04-04 19:32:00) [2]

> Я плакаль.
> Не, ну понятно, ветка для начинающих, но не настолько же!
>

Стыдно самому стало, когда ответ увидел :) Сутки без сна за компом дают о себе знать :)

Andy BitOff (2008-04-04 19:18:00) [3]
> не работает, на begin пишет [Error] Unit5.pas(68): Missing
> operator or semicolon

Я плакаль.
Не, ну понятно, ветка для начинающих, но не настолько же!
Для начала изучается синтаксис языка. В первое время, пока все не запомнится, при возникновении любых ошибок, тем более, тех в которых говорится об ошибках в синтаксисе, нажимается клавиша F1. Если хелп по ошибке не помогает, стОит посмотреть хелп по оператору - курсор на with и F1. А уж о том, что делают и для чего нужны операторные скобки «begin» и «end» нужно знать еще до того как сесть за написание программы.

Leon161 (2008-04-04 18:49:00) [4]
всё, работает как нужно, всем спасибо :)

MBo (2008-04-04 18:42:00) [5]
do begin

Leon161 (2008-04-04 18:27:00) [6]
Семеныч, я ответил на это:

> Чем помочь-то?

Если Вы мне решили помочь, то я Вам благодарен, а если Вы хотите в топике «Начинающим» самоутвердится перед кем то, то можете себя не утруждать - Вы гений!

Теперь по сути:

procedure TSostoyaniya.FormCreate(Sender: TObject);
begin

with TMemo.Create(Self)
begin
Parent := Self;
Left := 60;
Top := 30;
height:=300;
end;
end;
не работает, на begin пишет [Error] Unit5.pas(68): Missing operator or semicolon
при замене begin на do работает, создает поле Memo в верхнем левом углу формы, но Left := 60; Top := 30; height:=300; приходятся параметрами формы, а не созданного Memo поля. Как быть? :)

Семеныч (2008-04-04 18:00:00) [7]
> Leon161 (04.04.08 16:25) [2]

А что, если код из [1] выполнить в цикле n раз?

Правда, гениальная идея? Додуматься самому ну никак невозможно, да?

Leon161 (2008-04-04 16:25:00) [8]
мне нужно сделать так, чтобы создавалось n-ое количество Memo полей в определённых коородинатах. Заранее благодарю.

Джо (2008-04-04 15:48:00) [9]
Чем помочь-то?
with TSomeObj.Create (Self)
begin
Parent := Self;
Left := нужная координата
Top := нужная координата
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »