Вниз
Скачать: CL | DM;

Наследование форм и поведение в них Action ов   Найти похожие ветки 

 
NoName   (2004-05-08 18:04) [0]

Доброе время суток Метрам програмирования!

У меня такая проблема. Есть базовая форма На ней я цепляю грид
SpeedButtonы Actions и другие компоненты. После этого я наследуюсь от данной формы. Создаю формы наследники базовой динамичиски приэтом ложу наследуемую форму на панель (TPanel).
ПОказую форму таким образом:
  RouteForm := TRouteForm.Create(application);
  RouteForm.BorderStyle := bsNone;
  RouteForm.Align:= alClient;
  RouteForm.Parent:=WorckPlace;  // ложу на панель
  RouteForm.Show;
Теперь перейду к сути проблемы: На базовой форме у меня есть
компонент ActionList в него я добавляю определенные экшены
и присваеваю им быстрые кнопки по котороым они будут выполняться
и сами экшины присваиваю SpeedButtonu .Все нормально эти действия наследуються в потомках этой формы. Но после того когда
я положил ее на панель при нажатии на быстрые кнопки ничо не
происходит хотя везде все обработчики экшенов я прописал.
Когда же форму просто показываешь не ложа на панель все работает.
Как мне сделать чтобы когда форма лежала на панели все кнопки быстрые кнопки работали
Прошу прощение за сумбурное изложение надеюсь донес суть проблемы
Надеюсь на Вашу помощь в решении


 
exe   (2004-05-08 20:33) [1]

Ну шо народ никто не знает а?


 
Gero ©   (2004-05-08 20:37) [2]

Объясни нормально.
Я лично ничего не понял.


 
Игорь Шевченко ©   (2004-05-08 21:16) [3]

В http://www.schevchenko.net.ru/SRC/QuerySystemInformation_60.zip есть пример дочерних форм, встраиваемых в панель. Он несколько отличается от твоего. Попробуй, может, поможет.


 
exe   (2004-05-08 21:23) [4]

TO Gero:
Обясняю подругому
КОгда просто показуешь динамичиски форму экшины срабатывают при
нажати кнопок которые я задал. А когда я положил форму на Панель
ничо не срабатывает. Как сделать так чобы кнопки срабатывали?


 
exe   (2004-05-08 22:51) [5]

не ничо не получаеться :(((



Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.033 c
1-1083670938
klyonov
2004-05-04 15:42
2004.05.23
TControl.Parent


1-1084165730
SashaNevid
2004-05-10 09:08
2004.05.23
PageControl


1-1083873447
Mister
2004-05-06 23:57
2004.05.23
TDateEdit


1-1083595237
DRUID
2004-05-03 18:40
2004.05.23
Передвижение формы


3-1083225759
Stupid
2004-04-29 12:02
2004.05.23
Как отобрать записи из Т1 для которых нет записей в Т2?




   Наверх