Mastodon
Programmierung

No TabStops in DLL?!?

>This all works, except for some reason I can’t switch between edit boxes
>using tabs from the dll. It worked fine in the original.

I don’t know if it helps, but you can try

a.) use packages
b.) patch forms.pas

[code lang=”delphi”]function TApplication.IsKeyMsg(var Msg: TMsg): Boolean;
var
Wnd: HWND;
begin
[…]
// Find the nearest VCL component. Non-VCL windows won’t know what
// to do with CN_BASE offset messages anyway.
// TOleControl.WndProc needs this for TranslateAccelerator
while (FindControl(Wnd) = nil) and (Wnd <> 0) do
begin
Wnd := GetParent(Wnd);
if wnd = Mainform.ClientHandle then begin wnd:=0; break; end;
end;
if Wnd = 0 then Wnd := HWnd;
end;
if SendMessage(Wnd, CN_BASE + Message, WParam, LParam) <> 0 then
Result := True;
[…]
end;
[/code]

[tags]Delphi, DLL[/tags]

0 Kommentare zu “No TabStops in DLL?!?

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht.