Form principal
Crash em opend menu in not loadind rom
procedure TForm1.fConfigurar(Sender: TObject);
begin
if EmuStatus = EsRuning then
Pausa1Click(nil);
if addr(llamadas_maquina.configurar) <> nil then
llamadas_maquina.configurar;
if EmuStatus = EsPause then // evitar erros de acesso a memoria
Ejecutar1Click(nil);
end;
procedure TForm1.fConfigurar_general(Sender: TObject);
begin
if EmuStatus = EsRuning then
Pausa1Click(nil);
if MConfig = nil then
application.CreateForm(TMConfig, MConfig);
MConfig.Show;
while MConfig.Active do
application.HandleMessage;
if EmuStatus = EsPause then
Ejecutar1Click(nil);
end;
Original issue reported on code.google.com by sremula...@bol.com.br on 2 Dec 2010 at 4:52
Original issue reported on code.google.com by
sremula...@bol.com.br
on 2 Dec 2010 at 4:52