Fórum Erro ao retornar para a aplicacao #390822
18/11/2010
0
Felipe Ip
Curtir tópico
+ 0Posts
19/11/2010
Rogerio Moraleida
Gostei + 0
19/11/2010
Felipe Ip
Gostei + 0
19/11/2010
Pietro Braga
Gostei + 0
20/11/2010
Felipe Ip
Gostei + 0
20/11/2010
Pietro Braga
Sugerem alterar a unit control.pas e depois recompilar.
Use a local copy of Control.pas and change TMouse.GetCursorPos to:
function TMouse.GetCursorPos: TPoint;
begin
{$WARN SYMBOL_PLATFORM OFF}
// --> ORIGINAL
// Win32Check(Windows.GetCursorPos(Result));
// <--
if not Windows.GetCursorPos(Result) then
begin
if GetLastError <> 0 then
RaiseLastOSError;
end;
{$WARN SYMBOL_PLATFORM ON}
end;
Fonte: http://qc.embarcadero.com/wc/qcmain.aspx?d=9344
Abs
Gostei + 0
22/11/2010
Felipe Ip
Gostei + 0
23/11/2010
Pietro Braga
Bem, você deverá criar um noco projeto e abrir essa unit dentro do projeto, faça as alterações que precisa e compile, quando compilar vai ser gerado um arquivo control.dcu, copie esse arquivo e cole na pasta lib do delphi. mas faça um backup do arquivo antigo ok. Qualquer dúvida estou a disposição. Poste aí se isso resolveu o erro. Estou curioso para saber.
Abs
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)