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

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

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

Вопрос относительно объектов [D7, XP]

Страницы: < 1 2
Drone © (2008-08-23 16:41:00)
Мне хотелось бы чтоб при нажатии на кнопку все обекты Edit, находящиеся на форме сдвинулись на 10 позиций влево и на 10 позиций вниз. То есть если я бы добавил еще Edit-ов на форму то мне не пришлось бы менять код. Как-бы процедура которая определяет если объект есть Edit то его нужно сдвинуть.

Спасибо большое
Drone

Германн (2008-08-23 17:06:00) [21]

> И пожалуйста если можно разъясните разницу между controls
> и components

Каждый control есть component, но не каждый component есть control. Это если коротко.

DVM (2008-08-23 17:06:00) [22]

> И пожалуйста если можно разъясните разницу между controls
> и components

не все что компонент - это контрол

TControl = class(TComponent)

Drone (2008-08-23 17:03:00) [23]
^^ А зачем мне StringGrid?!

И пожалуйста если можно разъясните разницу между controls и components

Заранее благодарен

Leonid Troyanovsky (2008-08-23 17:02:00) [24]

> Vayrus (23.08.08 16:55) [2]

> procedure TForm1.Button1Click(Sender: TObject);

> for I := 0 to Form1.ComponentCount - 1 do

Form1 - в печь.

--
Regards, LVT.

Drone (2008-08-23 16:57:00) [25]
Спасибо и Вам Vayrus за более полный ответ!!!

Leonid Troyanovsky (2008-08-23 16:57:00) [26]

> Drone © (23.08.08 16:41)

> Мне хотелось бы чтоб при нажатии на кнопку все обекты Edit,

А использовать TStringGrid в голову не приходило?

--
Regards, LVT.

Drone (2008-08-23 16:56:00) [27]
Спасибо большое Германн!!!. Это то что мне нужно!

Vayrus (2008-08-23 16:55:00) [28]
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Form1.ComponentCount - 1 do
begin
if (Form1.Components[I] is TEdit) then
begin
(Form1.Components[I] as TEdit).Left := (Form1.Components[I] as TEdit).Left - 10;
(Form1.Components[I] as TEdit).Top := (Form1.Components[I] as TEdit).Top + 10;
end
end;
end;

Германн (2008-08-23 16:52:00) [29]
for i:=0 to ControlCount-1 do if Controls[i] is TEdit then ...

Страницы: < 1 2

Наверх

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