Как можно передать объект в процедуру...

← →
Dimases (2004-06-22 01:54) [0]

...чтобы в ней определить потом свойства? Я пытаюсь так:
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 я уже давно забыл, а сейчас задачу одну написать надо, вот по немногу и пытаюсь вспомнить. Поможите?

← →
jack128 © (2004-06-22 02:08) [1]

> procedure center(O: TControl);

← →
Dimases (2004-06-22 02:44) [2]

Спасибо, ясно, а как объект правильно передать в процедуру?
readerlink.Caption:="Text";
center(readerlink);
что-то не работает =(

← →
Dimases (2004-06-22 02:46) [3]

Все, вопрос исчерпан, center оказывается зарезервированное слово =)

ЧТО!

procedure Proc(NECHTO:TNECHTO);
begin
NECHTO.left:=center-align;
end;

Как можно передать объект в процедуру... Найти похожие ветки