StringGrid+DateTimePicker

← →
Vinum (2008-05-14 15:50) [0]

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

← →
Дмитрий К © (2008-05-14 19:23) [1]

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

← →
Vinum (2008-05-15 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; пропадает. Как мне сделать чтоб не пропадала?

← →
Дмитрий К © (2008-05-15 16:12) [3]

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

← →
Vinum (2008-05-15 16:42) [4]

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

← →
имя (2009-04-10 13:50) [5]

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

StringGrid+DateTimePicker Найти похожие ветки