caral muchas gracias..
creo que me equivoque en esto
Código Delphi
[-]procedure Tfromprincipal.SpeedButton1Click(Sender: TObject);
begin
fromninos.ShowModal ;
end;
procedure Tfromprincipal.SpeedButton1Click(Sender: TObject);
begin
mediaplayer1.Stop ;
fromninos.ShowModal ;
end;
procedure Tfromprincipal.SpeedButton4Click(Sender: TObject);
begin
if Application.MessageBox( '¿Desea salir?', 'Catalogo Principal',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES then
close;
end;
end.
deveria ser asi
Código Delphi
[-]procedure Tfromprincipal.SpeedButton1Click(Sender: TObject);
begin
fromninos.ShowModal ;
end;
procedure Tfromprincipal.SpeedButton4Click(Sender: TObject);
begin
if Application.MessageBox( '¿Desea salir?', 'Catalogo Principal',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES then
close;
end;
end.