Текущий архив: 2011.11.06;
Скачать: CL | DM;
Вниз
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]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2011.11.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.005 c
