Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.04;
Скачать: 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 вся ветка

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.092 c
6-1084265625
empty
2004-05-11 12:53
2004.07.04
Асинхронная передача данных в Delphi по сети. Поможите кто можите


14-1086994799
saNat
2004-06-12 02:59
2004.07.04
Демонстрация работы потоков


14-1086741817
begin
2004-06-09 04:43
2004.07.04
Помогите нач. программисту !!!


3-1086859060
Crazzy
2004-06-10 13:17
2004.07.04
Переключение DataSource в runtime


6-1083574468
zyx
2004-05-03 12:54
2004.07.04
Server.Сlose=error??