Динамический интерфейс.

[Alex Cones]

В своем проекте создаю динамический графический интерфейс. Примитивы рисования уже создал, и теперь могу нарисовать на экране картинку в нужном месте одной процедурой. В таймере идет отрисовка буфера, так что с графикой проблем нет. Теперь над этим уровнем строю следующий уровень организации - динамическое меню. Т.е. что-бы можно было создать кнопку одной процедурой.

Сделал, получилось. Теперь осталось разобраться, как вызвать нужную процедуру при нажатии кнопки.

Система у меня такая -
1) CreateButton(X, Y, Caption);
В динамическом массиве в конец приписывается элемент, который содержит запись ( в ней координаты, area для подсветки и проч).
2) На OnMouseMove и OnMouseDown идет процедура такого типа:

GetCursorPos(P)
... // Проверка на вхождение в area глобальных частей интерфейса
В цикле проверка на вхождение в массиве "кнопок".

При "попадании" вызывается процедура CMP {Click Menu Point} Там кейсятся значения для глобальных объектов интерфейса и так кейсится массив:

1..19 : Begin Light(ButtonArr[Num - 1].MP); End;

Это о внутреннем строении. Процедура, ответственная за какой-то пункт вызывается так:

 Procedure Normal(Var P : TMenuPoint);
 Begin
  P.Tr := P.Tr + P.Tm;
  If P.Tr = 20 Then
   Begin
    P.Tr := 0;
    P.Tm := 0;
    SPoint := P.Nm;
   End;
  If P.Mi = 0 Then
   Begin
    If P.Tag < 4 Then P.Tag := P.Tag + P.Vec;
    If P.Tag = 4 Then Begin P.Vec := -1; P.Tag := 3; End;
    If P.Tag = 0 Then Begin P.Vec := 0; End;
   End;
 End;

А отрисовка на экран идет по SPoint (там ряд констант). В общем в данный момент шикарно отрисовываются (несколько мелочей еще поправить и будет зашибись). А вот тем кнопкам, которые в массиве процедуру присвоить не выходит по причине того, что в процедуре Normal (котоая вызывается по таймеру) можно назначить только управление глобальным интерфейсом (Spoint), но никак не вызвать процедуру. Як исправить это недоразумение?

Мне кажется, что тут два пути:
1) Либо перестроить всю процедуру Normal, чтобы она вызывала процедуру, в которую спускать P.Nm а там кейсить все и вся.
2) Либо создать еще десятка два констант, которые будут отправляться в Spoint. Придется в таймере увеличить Case с 8-ми элементов до 100500.

[Impuls1989]

Не совсем понял что написано((( Но если у Вас есть процедура CMP, которая вызывается при клике, и если у Вас есть массив кнопок, которые, в свою очередь, имеют координаты. Ищите по массиву кнопки, координаты которых совпадают, и вызывайте их обработчик... Или я чего-то не понимаю?

[Alex Cones]

Дело в том, что между моментом нажатия и выполнением процедуры по клику проходит 20 тактов таймера (< 1 сек). Это время дается на обработку анимации. Т.е. инициатором начала анимации является процедура Light, в которой включается счетчик. А исполнитель - Normal, который "активирует" нужный пункт, если таймер "тикнул" достаточно (по коду это можно увидеть).

[Utkin]

Если ты не можешь выполнить процедуру - отдай распоряжение тому, кто сможет (таймер может?). Сделай структуру куда помещается адрес процедуры и ее параметры.

[Alex Cones]

Сделай структуру куда помещается адрес процедуры и ее параметры.

Ясно, влеплю проверку в Normal на то, откуда MenuPoint - стационарный, или из массива. Параметры процедуре не нужны, только адрес.

Подскажите, как правильно будет создать указатель на процедуру, чтобы по нему потом вызвать её?

[Utkin]

type
  TProc = procedure (X, Y: Integer);

var
  P: TProc;

begin
      P:=Alex_Cones_Procedure(X, y: Integer);
     P(0, 666);
end;

Что-то вроде этого.

[Alex Cones]

Ясно, спасибо.