Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
Время: 2.24 c
15-1345840202
Юрий
2012-08-25 00:30
2013.03.22
С днем рождения ! 25 августа 2012 суббота


2-1334754032
andrewtitoff
2012-04-18 17:00
2013.03.22
Картинки в массив и обратно


2-1337153578
Scott Storch
2012-05-16 11:32
2013.03.22
Создание методов в интерфейсах COM-объекта


2-1329678422
Zheksonz
2012-02-19 23:07
2013.03.22
Почему на панели TCategoryPanelGroup не виден TLabel?


15-1353950365
Разведка
2012-11-26 21:19
2013.03.22
Проблема принтера для чеков VKP-80-II





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский