Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизОдна процедура не видит другую! Найти похожие ветки
← →
Delhessh (2012-03-07 22:55) [0]Здравствуйте!
Проблема такая: в одном из гридов динамически создаю столбцы и так как их нет в режиме «дизайна», то программно хочу присвоить определенному событию на каждый вновь создаваемый столбец определенную процедуру. Нашел в интернете пример, который постарался модифицировать под себя, но не получилось.
1. Процедура, где я создаю столбцы
Procedure Load;
Var
ADBColumn: TcxGridDBColumn;
Begin
{…}
ADBColumn:=frmmain.cxGrid1DBTableView1.CreateColumn; {создаю новый столбец}
{…пропускаю ряд строчек кода :)}
ADBColumn.OnGetProperties:=GetColumnProperties; {вот на определенное событие столбца навешиваю свою процедуру}
End;
{процедура обработчик события}
procedure GetColumnProperties(Sender: TObject);
var
ADBColumn: TcxGridDBColumn;
begin
ADBColumn := TcxGridDBColumn(sender);
ShowMessage("ColName is "+ ADBColumn.Caption);
end;
Обе эти процедуры объявлены у меня сейчас в этом фрагменте программы:
{Глобальный VAR}
var
….
…
Procedure GetColumnProperties(Sender: TObject);
Procedure LoadTableOrders;
implementation
{$R *.dfm}
Находятся они в одном файле pas.
Суть в том, что в первой процедуре, когда я в строке ADBColumn.OnGetProperties:=GetColumnProperties;
писваиваю на обработчик свою процедуру, то компилятор ругается….
Что я делаю не так? Дайте пож-ста пример?
← →
Dimka Maslov © (2012-03-07 23:23) [1]Уж если компилятор ругается, то не будет ли автор ветки настолько любезен, что напишет нам здесь весь опус этого сквернослова компилятора?
Хотя мы и догадываемся, что GetColumnProperties должно быть методом какого-либо объекта. Или статическим методом какого-либо класса.type
TGetColumnProperties = class (TObject)
public
procedure Get(Sender: TObject)
end;
ADBColumn.OnGetProperties := TGetColumnProperties.Get;
← →
sniknik © (2012-03-07 23:46) [2]> Что я делаю не так?
не читаешь что пишет в "ругани". ошибки они не просто так, типа "не понимаю, значит выкинул и забыл". ошибки это важно.
← →
Palladin © (2012-03-07 23:56) [3]интересно при чем тут "глобальный var" и описание процедур
← →
Германн © (2012-03-08 02:17) [4]
> Что я делаю не так?
Не купил/не прочитал учебник.
← →
Anatoly Podgoretsky © (2012-03-08 07:51) [5]> sniknik (07.03.2012 23:46:02) [2]
А вот это было и написано: выкини и забудь
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.061 c