PHP DM Gate v0.9 » StringGrid+DateTimePicker

Vinum (14.05.08 15:50) [0]

Здравствуйте, начать обсуждение я решил с форума для начинающих
http://pda.delphimaster.net/?id=1210761565&n=18
и проблема: у TKOLStGrd нет события OnChangeTopLeft. Каким образом мне поступить?

<Цитата>
Дмитрий К © (14.05.08 19:23) [1]

Обрабатывай OnScroll

<Цитата>
Vinum (15.05.08 15:48) [2]

Научите пожалуйста правильно писать процедуры, которых нет в Eventах.
Я счас пишу так:

В месте описания процедур :
Procedure StGrd1OnScroll(Sender:Pcontrol; Bar:TscrollerBar; Scrollcmd:Cardinal;
ThumbPos:Cardinal);

В самой программе:
Procedure TForm1.StGrd1OnScroll(Sender:Pcontrol; Bar:TscrollerBar; Scrollcmd:Cardinal; ThumbPos:Cardinal);
Begin
//тут код
end;

В Unit1_1.inc:
Result.StGrd1.Onscroll:=Result.StGrd1OnScroll;

Все работает, но при добавления на форму какого-нить контрола или изменении свойств в инспекторе, строчка Result.StGrd1.Onscroll:=Result.StGrd1OnScroll; пропадает. Как мне сделать чтоб не пропадала?

<Цитата>
Дмитрий К © (15.05.08 16:12) [3]

Unit1_1.inc не трогай - он автоматически регенерируется. Назначь обработчик в FormCreate:
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
StGrd1.OnScroll := StGrd1OnScroll;
end;

<Цитата>
Vinum (15.05.08 16:42) [4]

Спасибо, счастлив

<Цитата>
~~имя~~ (10.04.09 13:50) [5]

Удалено модератором

<Цитата>