Ручная ли это процедура иль ее создал кто ?

← →
Нуб (2007-03-14 11:44) [0]

procedure TMainForm.ALUpdate(Action: TBasicAction; var Handled: Boolean);

Здрасте. То что в выше написано может быть Events-ом формы , точнее - ALUpdate? или это сами писали процедуру ? тогда если в ручную непонятно где она вызывается или чем юзуается вот полный код процедуры
procedure TMainForm.ALUpdate(Action: TBasicAction; var Handled: Boolean); var f: TForm; begin f := ActiveMDIChild; if (f = nil) then begin A_Save.Enabled := False; A_Add.Enabled := False; A_Del.Enabled := False; A_Undo.Enabled := False; A_Refresh.Enabled := False; Exit; end; // Óñòàíîâêà äîñòóïíîñò&egrav e; Toolbar A_Save.Enabled := (f.Perform(MSG_ISMETHOD,MSG_FORMSAVE,0) = 1); A_Add.Enabled := (f.Perform(MSG_ISMETHOD,MSG_FORMADD,0) = 1); A_Del.Enabled := (f.Perform(MSG_ISMETHOD,MSG_FORMDEL,0) = 1); A_Undo.Enabled := (f.Perform(MSG_ISMETHOD,MSG_FORMUNDO,0) = 1); A_Refresh.Enabled := (f.Perform(MSG_ISMETHOD,MSG_FORMREFRESH,0) = 1); end;

может кто-то уже с этим сталкивался ? хелп плз

← →
Плохиш © (2007-03-14 11:46) [1]

> То что в выше написано может быть Events-ом формы , точнее
> - ALUpdate?

Да, может.

> или это сами писали процедуру ?

Да, сами писали

> может кто-то уже с этим сталкивался ?

Я ни сталкивался, я вообще понятия не имею, где Вы это взяли.

← →
Reindeer Moss Eater © (2007-03-14 11:50) [2]

"Ручная" или создал кто?

Если она ручная, то стало быть её никто не создавал.
Откуда же она появилась?
Стало быть процедура эта "не ручная"

Элементарно, правда?

← →
Нуб (2007-03-14 11:51) [3]

> Плохиш ©

:) хорошо хоть развеселили LOL ну все равно это проблемы не решает шо за TBasicAction ?

← →
Плохиш © (2007-03-14 11:53) [4]

> Нуб (14.03.07 11:51) [3]

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

← →
Нуб (2007-03-14 11:53) [5]

> Reindeer Moss Eater ©

как-то один мудрец сказал: все что ты видишь - это тебе не кажется, а ты это видишь на самом деле , так что все что тебе не кажется , тебе видится, мораль сей басни такова : ПИТЬ надо было меньше вчера !!!

F1 выломал что ли?

TBasicAction is the ancestor class for all action objects.

Unit

Classes

Description

TBasicAction introduces the fundamental behavior for an action. Descendants of TBasicAction add functionality for containment in an action list, for being categorized, and for specializing their behavior tailored to particular clients such as controls or menu items. Use TBasicAction if you want to create an action for an object that is neither a menu item nor a control.

← →
Нуб (2007-03-14 11:56) [7]

> Плохиш ©

Ваше оно не Ваше это уже мне решать, а вот Вам бы стоило со своей Швабии хоть иногда куда-то в люди выезжать ;), а то заананасите себе досмерти и умрете девственником

← →
Нуб (2007-03-14 11:58) [8]

Ручная ли это процедура иль ее создал кто ? Найти похожие ветки