Y
yayongm
Unregistered / Unconfirmed
GUEST, unregistred user!
library prjDemo;
{
udemo.pas中的Form1上只有两个SpeedButton.
问题:当鼠标指针移动到SpeedButton上时,SpeedButton再也不会恢复原状了,为什么?怎样解决?
此问题在D4-D6中都存在.
}
uses
SysUtils,
Classes, Forms, dbtables, windows,
udemo in 'udemo.pas' {Form1};
var
SavedDLLApp: TApplication;
SavedDllScr: TScreen;
SavedSessions: TSessionList;
function Load(App: TApplication; Scr: TScreen; SessionsParam: TSessionList): Boolean;
begin
if not Assigned(SavedDLLApp) then begin
SavedDLLApp := Application;
Application := App;
end;
//use MDICount in MDIForm
if not Assigned(SavedDllScr) then begin
SavedDllScr := Screen;
Screen := Scr;
end;
if not Assigned(SavedSessions) then begin
SavedSessions := Sessions;
Sessions := SessionsParam;
end;
with TForm1.Create(App.MainForm) do
Show;//此句改为ShouModal后一切正常,why?
Result := True;
end;
procedure NewDLLProc(Reason: integer);
begin
if Reason = 0 then begin
if Assigned(SavedDllApp) then
Application := SavedDllApp;
if Assigned(SavedDllScr) then
Screen := SavedDllScr;
if Assigned(SavedSessions) then
Sessions := SavedSessions;
end;
end;
exports Load;
begin
DLLProc := @NewDLLProc;
end.
{
udemo.pas中的Form1上只有两个SpeedButton.
问题:当鼠标指针移动到SpeedButton上时,SpeedButton再也不会恢复原状了,为什么?怎样解决?
此问题在D4-D6中都存在.
}
uses
SysUtils,
Classes, Forms, dbtables, windows,
udemo in 'udemo.pas' {Form1};
var
SavedDLLApp: TApplication;
SavedDllScr: TScreen;
SavedSessions: TSessionList;
function Load(App: TApplication; Scr: TScreen; SessionsParam: TSessionList): Boolean;
begin
if not Assigned(SavedDLLApp) then begin
SavedDLLApp := Application;
Application := App;
end;
//use MDICount in MDIForm
if not Assigned(SavedDllScr) then begin
SavedDllScr := Screen;
Screen := Scr;
end;
if not Assigned(SavedSessions) then begin
SavedSessions := Sessions;
Sessions := SessionsParam;
end;
with TForm1.Create(App.MainForm) do
Show;//此句改为ShouModal后一切正常,why?
Result := True;
end;
procedure NewDLLProc(Reason: integer);
begin
if Reason = 0 then begin
if Assigned(SavedDllApp) then
Application := SavedDllApp;
if Assigned(SavedDllScr) then
Screen := SavedDllScr;
if Assigned(SavedSessions) then
Sessions := SavedSessions;
end;
end;
exports Load;
begin
DLLProc := @NewDLLProc;
end.