Цитата(jsa @ 9.12.2008, 11:39  ) | | 1 как сделать обработку кликов - т.е. кликнул по какой-то панели - она стала активной - каким либо образом перекрасилась |
присваивать создаваемым панелям обработчик OnClick. Например такой:
| Код |
procedure MyComponent._OnPanelClick(Sender: TObject);
begin
(Sender as TPanel).Color := RGB( random(255),random(255),random(255));
end;
|
| Цитата(jsa @ 9.12.2008, 11:39 ) | | 2 как выводить текст на панели( если ширина заранее не известна) что бы (возможно длинный) текст переносился автоматот на на другие строки по пробелам, или просто часть текста обрезалась и подставлялись 3 точки |
Для вывода текста в своём формате, сделать наследника(или class helper сойдёт?), в котором будет перекрыт метод protected метод Paint. И соответственно рисовать там текст со своими параметрами. Я сейчас не помню, но то ли у процедуры DrawText, то ли у TextOut, то ли у TextOutRect была возможность рисовать текст с переносами, либо укорачивать длинный текст многоточием.
| Цитата(jsa @ 9.12.2008, 11:39 ) | | 3 если я изменю ширину одной панели - как сказать остальным что бы они подвинулись |
Смотря как ты изменяешь ширину. Если ширина панели меняется сама по себе, и твой компонент-контейнер об этом не знает, то надо уведомлять компонент-контейнер, и пусть он уже настраивает ширину других панелей. В этом случае присвоить панелям обработчик OnResize, аналогично первому. |