| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Нуб ©   (2007-03-14 11:44:00) 


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:58:00) [1]

> Плохиш ©  


так что лучше сделайте мне кофе и принесите в мой кабинет :)

---

Нуб   (2007-03-14 11:56:00) [2]

> Плохиш ©  


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

---

Рамиль   (2007-03-14 11:54:00) [3]

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:53:00) [4]

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

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

---

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

> Reindeer Moss Eater ©


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

---

Нуб   (2007-03-14 11:51:00) [6]

> Плохиш ©


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

---

Reindeer Moss Eater   (2007-03-14 11:50:00) [7]

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

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

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

---

Плохиш   (2007-03-14 11:46:00) [8]

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

Да, может.

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

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

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

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

---

Наверх