создание класса на основе TSringGrid

← →
Rower © (2003-05-14 00:25) [0]

уважаемые, помогите пожалуста советом или примером:

на основе класса TStringGrid создать класс, позволяющий создание
кнопок (класс TButton) на любых ячейках. Реализовать методы для
добавления и удаления таких кнопок. Создать свойство, реализующее
доступ к свойствам и методам этих кнопок. Создать событие возникающее при нажатии
на какую либо из этих кнопок. Написать приложение, демонстрирующее
работу класса, его новых свойств и событий.

← →
Palladin © (2003-05-14 00:31) [1]

чего то маловато ты хочешь...

дам универсальный совет F1 почащще пользуй, читай книги про ООП, про Object Pascal и его возможности, про VCL почитай

имхо пока не задашь конкретный вопрос, конкретного ответа или совета не будет, не знаю кто тут тебе будет программу писать...

← →
Rower © (2003-05-14 01:10) [2]

ну мне не очень ясно с чего начинать...мне главное прояснитьвопрос :на основе класса TStringGrid создать класс, позволяющий создание кнопок (класс TButton) на любых ячейках..

← →
Palladin © (2003-05-14 01:27) [3]

даже этот вопрос содержит в себе целый комплекс

классы на основе какого либо класса в OP создаются следующим образом

TMyStringGrid=class(TStringGrid)

позволяющий создание кнопок, до этого ты вообщето должен сам уже додуматся, ничего нет сложного что бы организовать TObjectList для хранения созданых кнопок...

привязывание к любой ячейке: при создании TButton указывай ему tag:=ARow*(ColCount-1)+ACell, соответственно потом сможешь найти нужный для ячейки TButton или определить к какой же ячейке принадлежит tbutton...

отображение TButton на StringGrid: сводится во первых к определению Bounds (координат и размеров) ячейки куде необходимо отобразить, и после назначение TButton.SetBounds...

что именно не понятно?

есть такой файл в папке %delphi%\source\vcl\grids.pas
вот там копай на предмет методов и событий которые можно будет перекрыть при наследовании

создание класса на основе TSringGrid Найти похожие ветки