Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.004 c