SERENNE
asked on
Plugin DLL
I have a main Form wich load dinamicly plugin's.
Each plugin contains a toolbar and a screenbar (1 TForm for each).
The ScreenBar contains 5 TForms which are shown by a button click on the toolbar.
I have no problem to link my plugin in the main Form. But when i use the tab key on then screenbar, the focus doesn't go to the next edit field of the screenbar. It goes to the Main form. Anybody could help me ?
here is my code to initialize the plugin. Form1=the toolBar,Form2=the screenbar wich contains Form3 to Form7. ParentTools and ParentScreen are the TWincontros of Main Form wich must contains Form1 and Form2 .
function Initialize(App:TApplicatio n;ParentTo ols, ParentScreen: TWincontrol;DataBaseHandle :HDBIDB; var OnPtr : TNotifyEvent;var FormTools,FormScreen:TForm ):TForm;
var
P:Tpoint;
begin
if Init=False then
begin
PlugApp:=Application;
Application:=App;
OnChange := OnPtr;
Form1:=TForm1.Create(Appli cation.Mai nForm);
Form2:=TForm2.Create(Appli cation.Mai nForm);
Form3:=TForm3.Create(appli cation.Mai nForm);
Form4:=TForm4.Create(appli cation.Mai nForm);
Form5:=TForm5.Create(appli cation.Mai nForm);
Form6:=TForm6.Create(appli cation.Mai nForm);
Form7:=TForm7.Create(appli cation.Mai nForm);
end;
end;
Each plugin contains a toolbar and a screenbar (1 TForm for each).
The ScreenBar contains 5 TForms which are shown by a button click on the toolbar.
I have no problem to link my plugin in the main Form. But when i use the tab key on then screenbar, the focus doesn't go to the next edit field of the screenbar. It goes to the Main form. Anybody could help me ?
here is my code to initialize the plugin. Form1=the toolBar,Form2=the screenbar wich contains Form3 to Form7. ParentTools and ParentScreen are the TWincontros of Main Form wich must contains Form1 and Form2 .
function Initialize(App:TApplicatio
var
P:Tpoint;
begin
if Init=False then
begin
PlugApp:=Application;
Application:=App;
OnChange := OnPtr;
Form1:=TForm1.Create(Appli
Form2:=TForm2.Create(Appli
Form3:=TForm3.Create(appli
Form4:=TForm4.Create(appli
Form5:=TForm5.Create(appli
Form6:=TForm6.Create(appli
Form7:=TForm7.Create(appli
end;
end;
listening
did you try setting the plugins forms keypreview to true?
ASKER
to inthe
yes i tried keypreview to true but no result
yes i tried keypreview to true but no result
tip for use of plugins
http://www.uil.net/uilps5.html
http://www.uil.net/uilps5.html
listenning
bryan7, first of all it's 'listening' and second, why don't you respond to my comments on your question?
ASKER
is anyboby have a solution to my problem ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.