Add(MainForm,2953706,231,119)
{
}
Add(Edit,3078947,161,105)
{
Left=13
Top=105
Width=365
Point(onKeyDown)
link(onEnter,3078947:doText,[(200,118)(200,97)(151,97)(151,111)])
link(onKeyDown,4616424:doWork2,[])
}
Add(Edit,9802107,161,147)
{
Left=13
Top=133
Width=365
Point(onKeyDown)
link(onKeyDown,4616424:doWork3,[(207,167)])
}
Add(HubEx,4616424,203,119)
{
link(onEvent,2953706:doCaption,[])
}
Спрашивается - зачем нам подмигивание окна при не подключенном onEnter.
Зачем эту хрень придумали мягкотелые - даже предполагать не берусь
Но нам то это -- зачем
Предложение:
#pas
procedure THIEdit._OnKeyDown;
var dt:TData;
begin
if Key = 13 then begin
if Assigned(_event_onEnter.Event) then begin
if _prop_DataType(dt) then begin
_hi_onEvent(_event_onEnter,dt);
if _prop_ClearAfterEnter then begin
ChangeEvent := false; // Установка Control.Text вызывает _OnChange !!!
Control.Text := ';
end;
end;
end else inherited; // _event_onKeyDown
Key := 0;
end else inherited; // _event_onKeyDown
end;