Скачать: CL | DM;

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

← →
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 оказывается зарезервированное слово =)

---

← →
Anatoly Podgoretsky ©   (2004-06-22 09:23) [4]

ЧТО!

---

← →
TUser ©   (2004-06-22 09:36) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c