| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно передать объект в процедуру...
Dimases © (2004-06-22 01:54:00)...чтобы в ней определить потом свойства? Я пытаюсь так:
procedure center(O: TObject);
var center: integer;
align:integer;
begin
center:=round(Form1.Width/2);
align:=round(O.Width/2);
O.left:=center-align;
end;
Идея этой процедуры - отцентровать по форме любой объект, который дасться ей на съедение.
Естественно ругается =), все-таки Delphi я уже давно забыл, а сейчас задачу одну написать надо, вот по немногу и пытаюсь вспомнить. Поможите?
TUser (2004-06-22 09:36:00) [1]procedure Proc(NECHTO:TNECHTO);
begin
NECHTO.left:=center-align;
end;
Anatoly Podgoretsky (2004-06-22 09:23:00) [2]ЧТО!
Dimases (2004-06-22 02:46:00) [3]Все, вопрос исчерпан, center оказывается зарезервированное слово =)
Dimases (2004-06-22 02:44:00) [4]Спасибо, ясно, а как объект правильно передать в процедуру?
readerlink.Caption:='Text';
center(readerlink);
что-то не работает =(
jack128 (2004-06-22 02:08:00) [5]
> procedure center(O: TControl);
| |
